opendialog (memo1に貼り付け、opendialogコンポーネントを貼り付けたうえで )

procedure TForm1.Button1Click(Sender: TObject);
begin      
　　　 if opendialog1.execute then begin
                memo1.lines.LoadFromFile(opendialog1.filename);
        end;
end;


savedialog (memo2から読み込み、savedialogコンポーネントを貼り付けたうえで )

procedure TForm1.Button2click(Sender: TObject);
begin
        if savedialog1.execute then begin
                memo2.lines.SaveToFile(savedialog1.filename);
        end;
end;