Внутри метода Execute надо значения из полей ввода "перетащить" во внутренние поля компонента, на которые указывают соот. свойства, типа:
Код:
type
TUserAuth = class(TComponent)
private
FUserName : String;
FPassword : String;
public
function Execute : Boolean;
published
property UserName : String read FUserName write FUserName;
property Password : String read FPassword write FPassword;
end;
...
function TUserAuth.Execute : Boolean;
begin
With TUserAuthForm.Create(Application) Do
Begin
If ShowModal = mrOK Then
Begin
FUserName := edUseName.Text;
FPassword := edPassword.Text;
End;
End;
end;