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