function TForm1.DBtableExists(sTableName: string;FDconn: TFDConnection): Boolean;
  var
    vTableNames:TStringList;
begin
  Result:=False;
  vTableNames:=TStringList.Create;
    try
      FDconn.GetTableNames('','','',vTableNames,[osMy],[tkTable]);
      if vTableNames.IndexOf(sTableName)>=0  then
          Result:=True;
    finally
      vTableNames.Free;
    end;
end;