despues de tanto batallar el problema lo solucione de la siguiente manera por si alguna vez a alguien le puede ayudar este codigo:
Código Delphi
[-]
procedure llena_claves();
var licitac: variant;
begin
licitac:=trim(fpropuestas.txtlicitacion.Text);
With fModulo.Q_licitac2 Do
Begin
Sql.Clear;
Sql.Add('select gpo,gen,esp,dif,var from requerimiento');
Sql.Add('where licitacion=:licit');
sql.Add('group by gpo,gen,esp,dif,var');
Parameters.ParamByName('licit').Value:=Trim(Licitac);
Try
Open;
While Not Eof Do
Begin
fpropuestas.cb_clave.Items.Add((fieldByname('gpo').AsString) + ' ' + (fieldByname('gen').AsString) + ' ' + (fieldByname('esp').AsString)+ ' ' + (fieldByname('dif').AsString)+' '+(fieldByname('var').AsString));
Next;
End;
Close;
Except
On E:EOleException Do
Begin
MessageDlg(Format('Error: %s Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
End;
End;
End;
end;
Gracias a Todos los que dieron respuesta en su momento. alguien sabe como cerrar este hilo?