Gemmer ikke indhold af listboxe

Jeg har følgende i et program (Delphi 2.0):

procedure TForm1.gemClick(Sender: TObject);
var
  Ud : String;
begin
  AssignFile(RFil,Sti); Rewrite(RFil);
  Ud := '';

  for i := 0 to LB1.Items.Count - 1 do begin
    if LB1.Selected[i] then begin
      FOR j := 0 to Memo1.Lines.Count - 1 DO         
        Ud := Ud + Memo1.Lines[j];            { MEMO1 indeholder Beskrivelse af Varenummer }

      BRec.Beskrivelse := Ud;
      Label1.Caption := LB1.Items[i]+' skrives';  { Kontrol af aktivitet }
    end; { IF LB1 ..  }

    BRec.Varenummer := LB1.Items[i];
    BRec.Pris := LB2.Items[i];

    Write(RFil,BRec);
  end;  {  IF i := 0 ... }                   
  CloseFile(RFil);
end;


Jeg ved, at der er ens antal elementer i både LB1 (Varenummer) og LB2 (Pris). Begge er listboxe.

MEEEEN, når jeg så tester programmet, får jeg beskeden:
  EStringError "List index out of bounds"

Hvad er der galt? Hvad løser problemet?