как зарандомить символы, как в матрице?

[beegl]

Привет, подскажите, как зарандомить символы, как в матрице?

что-то это не работает

procedure TForm1.Timer1Timer(Sender: TObject);
var
   kol: Integer;
const
     conx='QWERTYUIOPASDFGHJKLZXCVBNM';
begin
Randomize;
kol := Length(conx);
kol := strtoint(AAScrollText1.Text.Lines.Text);
AAScrollText1.Text.Lines.Text := IntToStr(Random(kol));
end;
end.

хочу так оформить в SecretPanel)

здесь нашел оформление

[Stilet]

procedure TForm1.Timer1Timer(Sender: TObject);
const
     conx='QWERTYUIOPASDFGHJKLZXCVBNM';
begin
Randomize;
AAScrollText1.Text.Lines.Text := conx[Random(Length(conx)-1)+1;];
end;
end.

[Xo66um]

Если я правильно понял, то на выходе нужно получить рандомный набор символов?

Если да, то вот, накидал функцию:

function GetRandomChars(Data: string; Len: integer): string;
var
 i: integer;
begin
 Randomize;

 for i := 1 to Len do
  begin
   Result := Result + Data[Random(Length(Data))+1];
  end;
end;

А вот пример ее вызова:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Memo1.Text := GetRandomChars('QWERTYUIOPASDFGHJKLZXCVBNM', 10);
end;

По функции: где "Data" - набор любых символов, или цифр, которые будут участвовать в генерации. Где "Len" - длина генерируемых символов.

[beegl]

спасибо, а как его оформит многостаночный, каждая строка радном, и скролл вверх, и компонент перерисовывает и дает только одну строчку, даже не скроллит вверх(. Ничего не исправить?

замедлил

[Xo66um]

Стоит попробовать в цикле получить случайные символы с помощью функции, с записью в какой-нибудь TStringList, затем в тот-же TMemo, и изменять позицию каретки по таймеру.
Может есть другой, более легкий способ. Но сходу на ум приходит только это. Если надо сдвигать позицию именно вверх.

Если же вниз, то по тому же таймеру можно получать случайный набор символов и тут же записывать в TMemo, на новую строчку.

P.S.
С компонентом ScrollText не работал, поэтому дельный совет дать по этому поводу, увы - не могу.