generator liczb losowych

Witam
Potrzebuję pomocy.
Muszę do komponentu memo wygenerować 'x' linii a w każdej znich 'y' znaków. Znaki powinnny być wygenerowane losowo.
Proszę o pomoc

var
  linia: string;
  i, j: integer;
begin
  Randomize;
  {EDIT - czyszczenie Memo}
  Memo1.Lines.Clear;
  for i := 1 to X do
    begin
       linia := '';
       for j := 1 to Y do
         linia := linia + Char(Random(255) + 1);
       Memo1.Lines.Add(linia);
    end;
end;

właśnie miałem pisać to samo :P
A co do kodu to lepiej ograniczyć się do "widzialnych" znaków, czyli od 32 wzwyż

Czyli, żeby nie było wątpliwości:

for j := 1 to Y do
         linia := linia + Char(Random(224) + 32);

chyba, ze chcesz losowac z konkretnych znakow, wtedy:

var S:String
begin
S:='qwertyuiopQWERTYUIOP';
[...]

linia:=linia+ S[ random(length(S)-1)  +1];

Dzięki ;P