procedure TForm1.Button1Click(Sender: TObject);
var St:string;
i:integer;
begin
St:='Cette phrase est vraiment trop longue';
i:=30; //Nombre de caractère maximun
if Length(St)>i then
begin
St:=Copy(St,0,i-3);
St:=St+'...';
end;
Label1.Caption:=St;
end;