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