This is my delphi code

procedure TForm2.Button1Click(Sender: TObject);
var
cmd:string;
sResult:string;
begin
cmd:='$$Check^logininput()';
vism1.Code:=cmd;
sResult:=vism1.Value;
end;

end.