Delphi-Quellcode:
procedure Button1Click(Sender: TObject);
begin
Edit1.Text:=Chr(Random(Ord('Z')-Ord('a'))+Ord('a'));
end;
Im FormCreate noch randomize aufrufen.
Wohlgemerkt ohne Sonderzeichen
EDIT: Ich hab mir vielleicht 5 Sekunden den Beitrag durchgelesen und du hast gleichzeitig die Antwort geschrieben
.