var List: TStrings;
begin
List := TStringList.Create;
ADOConnection1.GetTableNames(List);
if List.IndexOf('Terceros') <> -1 then
MessageBox(0, 'La tabla SI existe.', nil, 0)
else
MessageBox(0, 'No hay la tabla "Terceros" en la BD "Listados"!', nil, 0)
List.Free;
end;