Eso es porque Excel es muuuuy inteligente y cree que pones un número.
Si es un string, prueba a poner una comilla simle ' antes.
Código Delphi
[-]
while not Qry_detalle.Eof do
begin
i:=i+1;
Libro.Cells [i,1] := '''' + Qry_detalle.FieldByName ('licitante').AsString;
Next;
end;
Tembién puedes probar entrecomillando todo el string:
Código Delphi
[-]
while not Qry_detalle.Eof do
begin
i:=i+1;
Libro.Cells [i,1] := '"' + Qry_detalle.FieldByName ('licitante').AsString + '"';
Next;
end;