var
 R: string;
 T: string;
 X: integer;
begin
  X := Length(T);
  if X >= 10 then
  //преобразую строку в число и проверяю если оно больше то
    R := '...';
  //R := Заменяю ... буквы после 10 символа
    Insert(R,T,10);