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.
InterSystems Caché is a multi-model DBMS and application server. See more details here.