perfecto.. ahora me funco...
realmente la estaba utilizando mal..
Código Delphi
[-]
largo:=Length(Cadena);
If Largo >= 85 Then
Begin
Paso:= LastDelimiter(' ',Copy(Cadena,1,85));
sPal1.Caption := Copy(Cadena,1,paso-1);
sPal2.Caption := Copy(Cadena, paso+1, length(Cadena)-paso)
End
Else
Begin
sPal1.Caption := Cadena;
sPal2.Caption := '-----------';
End;