[marcoszorrilla]

Mira a ver si con esta idea, pero desarrolándola y adaptándola te puede servir.

Código Delphi [-]
   procedure TForm1.Button1Click(Sender: TObject);
   var
   cCampos:String;
   n:Integer;
   begin
   
     for n:=0 to Table1.FieldCount - 1 do
     begin
     cCampos:=cCampos+Table1.Fields[n].FieldName+';';
     end;
     cCampos:=Copy(cCampos,1,Length(cCampos)-1);
     ShowMessage(cCampos);
   
     Table1.Locate(cCampos,VarArrayOf(['1231','Unisco','PO Box Z-547']),
 [loCaseInsensitive]);
   end;

Un Saludo.