送分(20分)

怎样理解Table is busy？

你可以再开一个线程
var

SecondSession: TSession;
begin
SecondSession := TSession.Create;
with SecondSession do
try
SessionName := 'SecondSession';
KeepConnections := False;
Open;
...
finally
SecondSession.Free;
end;
end;

接受答案了.