procedure Log(format: String; params: array of const);
var
l: IFMXLoggingService;
begin
l := TPlatformServices.Current.GetPlatformService(IFMXLoggingService) as IFMXLoggingService;
l.log(format, params);
end;
procedure TfrmLogin.btnOkClick(Sender: TObject);
var
UserName, Password: string;
begin
UserName := edtUserame.Text;
Password := edtPassword.Text;
if LogIn(UserName, Password) then //call ServerMethod
begin
Hide;
frmMain.Show;
end
else begin
Log('Wrong Password', []);
ShowMessage('Wrong Password');
end;
end;
