[s0Creator]

а может все из-за then

if DataModule1.MSSQLConnection.ConnectionState = csStateOpen then
begin
end;