[AlexBerg001]

Ну вроде как база загружается, количество строк в Label пишет, но когда пытаюсь вывести текст хотя бы в Memo, при компиляции выдаёт ошибку Project Project1.exe raised exception class EStringListError with message 'List index out of bounds'

Код:

procedure TForm2.sButton2Click(Sender: TObject);
var
Acc: integer;
begin
if sOpenDialog1.Execute then
begin
  Accounts.LoadFromFile(sOpenDialog1.FileName);
  sLabel9.Caption:=inttostr(Accounts.Count);
  Login:=copy(Accounts[Acc],1,pos(';', Accounts[Acc])-1);
  sMemo2.Lines.Add(Login);
  end;
end;