установка определённой длины строки с использованием SetLength
Cоздаем обработчик событий Label'а OnClick и туда пишем: var s : string; begin s := 'Delphi AiX'; SetLength(s, 6); // устанавливаем длину строки в 6 символов Label1.Caption := s; // результат: Delphi end;
