var
 dizi : array[1..25] of string;
 i : byte;
 id : string;
begin
 for i := 1 to 25 do
 begin
  dizi[i] := chr(64+i);
 end;
 randomize;
 id := 
dizi[random(25)+1]+inttostr(random(9))+dizi[random(25)+1]+dizi[random(25)+1]+int
tostr(random(9))+inttostr(random(9))+dizi[random(25)+1];
 cxTextEdit1.Text:=id;