Anonymous

procedure TForm2.Button2Click(Sender: TObject);
var temp : textfile;
    file_nev : string;
begin
  if OpenDialog1.Execute then
    begin
      AssignFile(temp, OpenDialog1.FileName);
      RichEdit1.Lines.LoadFromFile('malibeograd.rtf');
    end;

end;