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

[[BlueSteel]]

gracias de todos modos.. pero tampoco me sirve

trate de usar la funcion LastDelimiter, pero me devuelve un caracter.. y lo que necesito es la posición del caracter..

tambien la combine con Pos, pero me devuelven el primero.. y necesito el último...

seguire tratando

[gabrielkc]

Algo tienes mal, porque LastDelimiter se definiie como:

function LastDelimiter(const Delimiters, S: string): Integer;


te devuelve la posición del último caracter que indiques en la constante Delimiters

[[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;