[Nelet]

Al final...

Código Delphi [-]
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT vchMarca FROM TB_Marca where smlMarca IN (SELECT smlMarca FROM TB_Relacion WHERE smlLinkup like'+Char(39)+DBedit1.Text+'%'+Char(39)+')');
ADOQuery2.Open;