Как вывести все строки в Memo1

[GalaiAnton]

procedure TForm1.Button2Click(Sender: TObject);
var f:TextFile;
a,b,c:string;
i:integer;
begin
if CheckBox1.Checked then
Form2.Visible:=True;
case ComboBox1.ItemIndex of
0:begin
assignfile(f,'D:\Билеты\B1.txt');//файл в папке с программой
reset(f);
Form2.Memo1.Clear;
Readln(f,a);
Readln(f,b);
Readln(f,c);
Form2.Memo1.Lines.Add(a);
Form2.Memo1.Lines.Add(b);
Form2.Memo1.Lines.Add(c);
end;
1:begin
assignfile(f,'D:\Билеты\B2.txt');//файл в папке с программой
reset(f);
Form2.Memo1.Clear;
Readln(f,a);
Readln(f,b);
Readln(f,c);
Form2.Memo1.Lines.Add(a);
Form2.Memo1.Lines.Add(b);
Form2.Memo1.Lines.Add(c);
end;

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

[Аватар]

Memo.Lines.LoadFromFile

[GalaiAnton]

Сообщение от Аватар

Memo.Lines.LoadFromFile

Благодарю Вас!