Developing.ru

Господа, не может ли кто-нибудь набрасать цикл для копирования всех строк файла в мемо?

Вот, надо добавить в эту процедуру цикл, но я не знаю как:

procedure TForm1.N2Click(Sender: TObject);
begin
with OpenDialog1 do begin
if Execute then begin
Memo1.lines.LoadFromFile(FileName);
Form1.Caption:=' '+filename;
end;

Никто не подскажет?

Вопрос отпал)