[n03l]

Saludos, estoy tratando de hacer un procedimiento que permita partir un string en varios trozos, el problema que tengo es que no quiero que me parta las palabras.

tengo este codigo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i,contador:integer;
 s,t,cadena: string;
 k: integer;
begin
cadena:='Delphi 1 es una potente herramienta de desarrollo de programas que permite la creación de aplicaciones para Windows 3.x, Windows95 y Windows NT.';
contador:=0;
s :='Delphi 1 es una potente herramienta de desarrollo de programas que permite la creación de aplicaciones para Windows 3.x, Windows95 y Windows NT.';
  k := Length(s);
  for i := 1 to k do
  begin
  contador:=contador+1;
    t := t + s[i];

//la corto en pedazos de 10 (esta en escala y el uso final sera cortar cadenas largas)
    if contador>9 then 
    Begin
      ShowMessage(t); //muestro la division de la cadena
      t:='';
      contador:=0;
    End
  end;
  ShowMessage(t); // muestro el ultimo pedazo
end;

al ejecutar el codigo anterior me divide la cadena pero corta las palabras
ejemplo:

'Delphi 1 e'
's una pote'

Lo que quiero es cortar una cadena en pedazos mas chicos y no me corte las palabras

espero a ver si me echan una manito
saludos y gracias de antemano.