[AlexSku]

Можно воспользоваться API, если многоточие в конце:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  R: TRect;
begin
  S:= 'эвамиваияваивяияваиакку';
  R:= Label1.ClientRect;
  DrawText(Label1.Canvas.Handle,
    PAnsiChar(S),
    Length(S),
    R,
    DT_END_ELLIPSIS);  
end;

Есть ещё флаг DT_PATH_ELLIPSIS, он ставит многоточие в середине, при этом строка это путь, т.е. содержит символы '\'