Строки и файл...

[garyanikin]

Здравствуйте.
Есть файл in.txt в нём текст, формата: blabla lalal;ala.
Нужно поделить строчки и брать токлько blabla
как это сделать? Я вот попытался, но пишет List index out of bounds

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
mail, hash : string;
SL: TStringList;
begin
Sl:=TStringList.Create;
if FileExists('in.txt') then begin
SL.LoadFromFile('in.txt');
for i:=0 to Sl.Count-1 do
mail:= copy(SL.Strings[i],0,pos(' ',SL.Strings[i])-1);
hash:= copy(SL.Strings[i],pos(' ',SL.Strings[i])+1,32);
Edit1.Text := mail;
end;
end;

Заранее спасибо)

[Пепел Феникса]

for i:=0 to Sl.Count-1 do begin
mail:= copy(SL.Strings[i],0,pos(' ',SL.Strings[i])-1);
hash:= copy(SL.Strings[i],pos(' ',SL.Strings[i])+1,32);
Edit1.Text := mail; end;

[garyanikin]

А как потом сделать что бы если имайл подходит удалялось blabla и остовалось только lalal;ala.
А если не подходит удалялось вся строка.
Знаю что глупый вопрос, просто щас вообще голова не варит(

[Пепел Феникса]

copy(SL.Strings[i],1,pos(' ',SL.Strings[i])-1);

еще ошибочка.
тут Copy на Delete замените

[DeDoK]

Пепел Феникса, обьясните почему 1 ?

[Пепел Феникса]

строки начинаются с 1 а не 0, 0 может привести к тому что вообще вернет '' а не то что надо.

[garyanikin]

И вот ещё вопрос, извините если слишком много вопросов, но я только учусь!
Вот код

...
for i:=0 to Sl.Count-1 do begin
Application.ProcessMessages;
mail:= copy(SL.Strings[i],1,pos(' ',SL.Strings[i])-1);
hash:= copy(SL.Strings[i],pos(' ',SL.Strings[i])+1,32);
Edit2.Text := mail;
Edit2.Refresh;
ProgressBar1.Position := ProgressBar1.Position+1;
progress :=  progress-1;
Label4.Caption := 'Îñòàëîñü ðåòðèâèòü:' +IntToStr(progress);
Label4.Refresh;
sleep(2000)
end;
end;
end;

Но почему во время работы цикла её нельзя закрыть и вообще что либо с ней делать?

[Пепел Феникса]

изза sleep(2000)