[Killduettm]

Извените за конкретную тупость:
Form1

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    f: Tframe;
implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
if f<>nil then
begin
 FreeAndNil(f);
end;
f:=TFrame2.Create(nil);
f.Align:=alClient;
f.Parent:=Form1;
f.Visible:=true;
end;

end.

Frame2

Код:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TFrame2 = class(TFrame)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public

  end;

implementation

{$R *.dfm}

uses Unit3;



procedure TFrame2.Button1Click(Sender: TObject);
begin
Edit1.text:=Form3.Execute;
end;

end.

Код:

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
  private
    { Private declarations }
  public
    function TForm3.Execute : String;
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

function TForm3.Execute(): String;
begin
  ShowModal;
  Result := Edit1.Text;
end;

end.

По прежнему ошибка does not contain a member named 'Execute'