cleanScreen,letra aleatoria

[Khronos]

A lo primero no tengo ni idea a lo que te refieres , y a lo segundo es muy facil.
Acabo de hacer esta funcion, pruebala haber que tal

Código Delphi [-]
uses Math;
 
function RandomWord (cifras: integer): string;
const
Abc= 'abcdefghijklmnñopqrstuvwxyz';
var
iCount, u, i: integer;
begin
result:=emptystr;
iCount:=length(Abc) +1;
Randomize;
For i:=1 to cifras do begin
u:= RandomRange(1,iCount);
result:= result + abc[u];
end;
end;

Un ejemplo de llamada...

Código Delphi [-]
showmessage(RandomWord(3));
showmessage(RandomWord(1));

Salu2