Ага, понял. Спасибо!
Проблему генераций решил так:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
const
alphabet='abcdefghijklmnopqrstuvwxyz';
var
temp: string;
begin
temp:='';
while length(temp)<8 do
begin
temp:=temp+alphabet[random(length(alphabet))+1];
end;
memo1.Lines.Add(temp);
end;
Как я понял, его не устраивал периодический 0 в выдаче random. В общем, всё хорошо.