Загрузить текст из файла в мемо

[Teen4jump]

Как загрузить весь текст из файла. Я делал так:
procedure LoadFromFile;
var s:string;
begin
Assignfile(input,'Save.txt');
Reset(input);
Read(s);
Form1.LMemo1.Text:=s;
CloseFile(input);
end;
Загружается тока первая строка.

[Andr]

Memo1.Lines.LoadFromFile('Путь к файлу');
Read(S) считывает только 1 строку, поэтому она 1 и загружалась

[Tayfun]

Чтобы загружались все строки нужно писать так
procedure InputFromFile;
var
f:TextFile
s:array[1..100] of string;
i:integer;
begin
AssignFile(f,'base.txt');
Reset(f);
While not Eof(f) do begin
i:=i+1;
readln(F,s[i]);
end;
CloseFile(f);
end;