[lemur]

procedure TForm1.Zvat_Zvera(Zverok: ZVERUSHKA; sIP: string;

nZUT: integer);

begin

try

Startwait;

Preved;

Zverok( sIP, nZut );

finally

LogBase.Connected := false;

dbMarket.Connected := false;

IBDB.Connected := false;

StopWait;

end;

end;