procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := '1234567890'; //10位
s := s + s + s + s + s + s + s + s + s + s; //100位
s := s + s + s + s + s + s + s + s + s + s; //1000位
ShowMessage('现在长度为:'+IntToStr(Length(s))+#13#10+s);
end;