al final lo que hice fue crear una función y en el evento onpaint del label pues llamarla:
Código Delphi
[-]
LabelDescripcionDetalles.Text:=AdaptarTexto(LabelDescripcionDetalles.Text,cantidadcaracteres);
Código Delphi
[-]
function TForm1.AdaptarTexto(texto:string;largo:integer): String;
begin
if (Length(texto)>largo) and (largo > 5) then
begin
result:=Copy(texto,1,largo);
Result:=result+'...';
end
else
result:=texto;
end;
Por si a alguien le sirve de ayuda.