[mirt steelwater]

лучше так:

Код:

function TUserAuth.Execute : Boolean;
begin
  With TUserAuthForm.Create(Application) Do
    try
      If ShowModal = mrOK Then
        Begin
          FUserName := edUseName.Text;
          FPassword := edPassword.Text;
        End;
    finally
      Free;
    end;
end;