Pamainīt tekstu iekš Delphi...

Ok, akal mainu Topiku, bet šodien pēdējo reizi.

Tātad Lieta tāda:

It Textbox1 un Textbox2.

Textbox1 - priekš Name
Textbox2 - Priekš Serial

Kā dabūt tā, kad lietotājs ievada Textbox1 piem  Andris,
Tad Textbox2 uzgenerē priekš tā vārda noteiktu kodu?
Es domāju ka tas varētu būt kaukas tā:

Var
A: Text;
B: Text;
C: Text;
UTT...

A := '5';
B := '6';
C := '7';

Tad
GetTextbox1.text and Textbox2.text =  kaukā pamainīt pēc Dotajiem burtiem un cipariem, nu peim kāds iekš Teksbox1 ieraxta ABC un iekš Textbox2, pēc dotā, uzrādas 567...

Ceru ka sapratāt.