[vtdeleon]

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
begin
  f:=TFaux.create(self); 
  f.showmodal; 
end;
{************************************}
procedure TFaux.Button1Click(Sender: TObject);
begin
  f.caption:='Hola Mundo';
end;