avoiding dialog boilerplate delphi /or c++

i mostly need settlement dialog delphi/c++builder allows several properties an vigilant modified, formula typically looks this.

dialog.edit1.text := myobject.username;
dialog.edit2.text := myobject.password;
// ... some-more same

if (dialog.showmodal = mrok) 
begin
  myobject.username := dialog.edit1.text;
  myobject.password := dialog.edit2.text;
  // ... again, some-more same
end;

i also mostly need identical formula marshalling objects to/from xml/ini-files/whatever.

are there any common idioms techniques avoiding kind rudimentary nonetheless steady code?