Load Text

procedure TForm2.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute() ;
if OpenDialog1.Files.Count > 0 then begin
  if ExtractFileExt(OpenDialog1.FileName) = '.txt' then begin
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName) ;
  end;

end;
end;