[*Caro*]

Muchas gracias jmariano me quedo asi

Código Delphi [-]
var
   posi,i,band:Integer;
   s,cad,cad_nue:String;
begin
    posi:=-1;
    band:=0;
    cad_nue:='';
    cad:=edit1.Text;
    cad_nue:=copy(cad,0,9)+'..';
    s:=cad;
    while band=0 do
    begin
       posi:=pos(' ',s);
       s:=copy(s,posi+1,length(cad)-1);
       IF posi=0 THEN
          band:=1;
    end;
    cad_nue:=cad_nue+copy(s,0,2)+'..';
    showmessage(cad_nue);