[leon2009]

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
SQLQuery1.SQLConnection:=SQLConnection1;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text:='SHOW TABLES LIKE "test"'; //SQLQuery1.SQL.Text:='select * from test1';
//SQLQuery1.ExecSQL;
SQLQuery1.Open;
if not SQLQuery1.IsEmpty then
begin
  memo1.text:='поле с таким значением есть';
end
else
begin
  memo1.Text:= 'поля с таким значением нет';
end;
SQLQuery1.Close;
end;