try
with query1 do
begin
Close;
with SQL do
begin clear;
Add('select * from boy');
end;
if not Prepared then
Prepare; Open;
end;
except
on e:Exception do
ShowMessage(e.Message);
end;
with query1 do
begin
Close;
with SQL do
begin clear;
Add('select * from boy');
end;
if not Prepared then
Prepare; Open;
end;
except
on e:Exception do
ShowMessage(e.Message);
end;
if not Prepared then
Prepare;