Separar texto en 2 lineas...para impresion de cheques

[[BlueSteel]]

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;