Separar dos cadenas: 1 _:_ 10

[THACKER]

Buenas noches y feliz año nuevo!, les deseo lo mejor, salud, amor y dinero!.

Bueno, veran, ya que el otro tema lo borraron, decidi hacer este de nuevo, ya que mi proyecto, quedo en el olvido, ya que se dañaron muchas cosas, y formatie el pc, y me quede sin codigo..Pero bueno que mas da!, ojala me puedan ayudar con este problemita, tengo dos cadenas separadas por ( _:_ ), el guion y los 2s puntos..

Y nesecito, separar las dos cadenas, en 2s list boxs diferentes.
Empiezan asì:
ListBox1:

1 _:_ 10

ListBox2:

Ninguno _:_ Sin reclamar
480 _:_ Incorrecto sin reclamar

Y exportar asi en dos list box diferentes:
ListBox1:

1
Ninguno
480

ListBox2:

10
Sin reclamar
Incorrecto sin reclamar

Y sì por casualidad no se entiende, es culpa mia..Tengo algo que no me deja expresar como quiero, pero bueno.Seria, que ( 1 _:_ 2 ), me permita obtener las dos cadenas separadas, 1 y 2 que estan en una misma cadena..
Saludozzz ;S;SSSS

[marcoszorrilla]

1 botón
3 listbox

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
s1:String;
ubi1:integer;
ubi2:Integer;
begin

 For n:=0 to Listbox1.Count -1 do
 begin
 s1:=listbox1.Items[n];
 ubi1:=Pos('_:_', s1)-1;
 ubi2:=Ubi1 + 4;

 Listbox2.Items.Add(Copy(s1,1,ubi1));
 Listbox3.Items.Add(Copy(s1,ubi2,(Length(s1)- Ubi1)));
 end;

end

Un Saludo.

[THACKER]

Empezado por marcoszorrilla

1 botón
3 listbox
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var n:integer; s1:String; ubi1:integer; ubi2:Integer; begin For n:=0 to Listbox1.Count -1 do begin s1:=listbox1.Items[n]; ubi1:=Pos('_:_', s1)-1; ubi2:=Ubi1 + 4; Listbox2.Items.Add(Copy(s1,1,ubi1)); Listbox3.Items.Add(Copy(s1,ubi2,(Length(s1)- Ubi1))); end; end


Un Saludo.

Muchas gracias! me a encantado !
te deseo lo mejor, feliz año! sin importar la religion que uses!.