[s0Creator]

Код:

procedure TMDIChild.btInputClick(Sender: TObject);
var
  FormAdd: TFormAdd;
begin
  FormAdd:= TFormAdd.Create(Self);
  try
    if FormAdd.ShowModal() = mrOk then
    begin
      Memo1.Lines.Add(FormAdd.edAdedString.Text);
    end;
  finally
    FormAdd.Free;
  end;

end;

MdiInput.zip