(Resolvido) Separar dados de TStringList

[DelpheroMn]

Eu tenho uma variável do tipo TStringList com os seguintes dados

#1

dados1

dados1

dados1

dados1

#2

dados2

dados2

dados2

dados2

#3

dados3

dados3

dados3

dados3

Quero que os dados do "#1" fiquem no listbox1 os dados "#2" fiquem no listbox 2 e os "#3" fiquem no listbox3 , tentei fazer de vários métodos usando while e for mas até agora sem sucesso, por favor alguém poderia me dar uma luz?

Agradeço desde já

[DelpheroMn]

Depois de muitos pensamentos filosóficos resolvi fazer uma "gambiarrinha" básica né?! HAHA

quem quiser ta aí..

procedure TForm1.Button1Click(Sender: TObject);
var
lista:TStringList;
i,l1,l2,l3,l4,l5,l6 : integer;
begin
lista := TStringlist.create;
lista.loadfromfile('sys.db');
for i := 0 to lista.Count -1 do begin
if lista.Strings[i] = '#1' then begin
l1 := i;
end;
if lista.Strings[i] = '#2' then begin
l2 := i;
end;
if lista.Strings[i] = '#3' then begin
l3 := i;
end;
if lista.Strings[i] = '#4' then begin
l4 := i;
end;
if lista.Strings[i] = '#5' then begin
l5 := i;
end;
if lista.Strings[i] = '#6' then begin
l6 := i;
end;
end;

for i := l1 to lista.Count -1 do begin
if i < l2 then begin
listbox1.Items.Add(lista.Strings[i]);
end else begin
break;
end;
end;

for i := l2 to lista.Count -1 do begin
if i < l3 then begin
listbox2.Items.Add(lista.Strings[i]);
end else begin
break;
end;
end;

for i := l3 to lista.Count -1 do begin
if i < l4 then begin
listbox3.Items.Add(lista.Strings[i]);
end else begin
break;
end;
end;


for i := l4 to lista.Count -1 do begin
if i < l5 then begin
listbox4.Items.Add(lista.Strings[i]);
end else begin
break;
end;
end;

for i := l5 to lista.Count -1 do begin
if i < l6 then begin
listbox5.Items.Add(lista.Strings[i]);
end else begin
break;
end;
end;

for i := l6 to lista.Count -1 do begin
if i < lista.count then begin
listbox6.Items.Add(lista.Strings[i]);
end else begin
break;
end;
end;

end;

ele grava as linhas em que os determinados dados começam e depois da o for sómente nas linhas necessárias.

rodou bem legal e sem erros, tópico resolvido !