Загрузка текста в мемо рандомом

[Gracia]

Собственно суть вот в чем. Есть Мемо, в которое при запуске программы должен вставляться текст из текстового файла, файлов таких несколько, и необходимо чтобы вставка текста была рандомной, т.е. при запуске программы текст брался то с одного файла то с другого...

Вот что написала я, конечно не до конца, и конечно не работает

var
text: string;
begin
Memo1.Clear;
randomize;
text:=('txt/1.txt''txt/2.txt''txt/3.txt'); //txt это папка в каталоге с программой где хранятся собственно файлы текста.
Memo1.Lines.LoadFromFile(random(text));
end;

Может я конечно вообще не так мыслю и мой кусок кода вобще не правильный...
В delphi я почти новичок поэтому и обратилась сюда... Надеюсь поможете. Заранее благодарна!

[SERG1980]

var
text: string;
begin
Memo1.Clear;
randomize;
Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'text\'+inttostr(random(4))+'.txt');
end;

[Gracia]

Спасибо огромное! Вы мне очень помогли!