procedure TForm1.Button4Click(Sender: TObject);
begin
Memo2.Lines.LoadFromFile('FileName.txt')
end;

FileName.txt - Имя вашего файла в корневой папке!