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.