[ContraVeneno]

Código Delphi [-]
with TuADOQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Select T.UnCampo, ''otro ''+T.OtroCampo');
 SQL.Add('From UnaTabla T');
 SQL.Add('Where T.ID = :ID');
 Parameters.ParamByName('ID').Value = UnEdit.Text;
 Open;
 Showmessage('Valor: '+FieldByName('UnCampo').AsString);
// First; 
 //While not EOF do begin
 //Showmessage('Valor: '+FieldByName('UnCampo').AsString);
 // Next;
 //end; //while
 //Close;
end; //with

Eso es un ejemplo de como utilizar un TADOQuery