Klappt dich wunderbar. Nur muss halt X vorher n Wert zugewiesen werden...
Delphi-Quellcode:
function RandName(Length : Integer):String;
var
i : Byte;
begin
randomize();
result := '';
SetLength(Result,Length);
for i := 0 to Length do Result[i] := Char(Random(25)+65);
end;
procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
x:=12; // <--- Zuweisen!
Label1.Caption := RandName(x);
Edit1.Text := inttostr(X);
end;