[m@kio]

Si es campo numerico

Código Delphi [-]
Query1.SQL.Text:='select *from Tabla1 Where id='+CLAVE.Text;

Si es campo cadena

Código Delphi [-]
Query1.SQL.Text:='select *from Tabla1 Where id='+QuotedStr(CLAVE.Text);