Separar dos cadenas: 1 _:_ 10

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