[paldave]

A ver si así les gusta más:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var fallo:boolean;
begin
  repeat
    fallo:=false;
    try
      resultado:=(Form.pagecontrol1.ActivePage.Controls[0] as   TFRAME1).mMemo.lines.gettext;
    except
      fallo:=True;
    end;
  until fallo=false;
end;