String Grid speichern nur mit Fehler

[IronBytes]

Hallo Zusammen

Weis jemand wie ich die Strings wieder untereinander ins Memofeld bekomme ? Danke im Vorfeld.
Einzelne Zeilen gehen gut. nur das aneinanderreihen von Memozeilen geht warum auch immer nicht.

Grüße von der schwäbischen Alb.

Delphi-Quellcode:

procedure TForm2.BitBtn6Click(Sender: TObject);

 var
  F: TStringList;
  x1,y1,a,ie: Integer;
  strV: string;


begin
OpenDialog1.Filter := 'Datenbank (*.dbs)|*.DBS';
if Opendialog1.Execute then begin;
  strV:='';
  a:=-1;
  F := TStringList.Create;
  try
    F.LoadFromFile(opendialog1.FileName);
    for y1 := 1 to 499 do begin;

    for x1 := 1 to 70 do begin;
    a:=a+1;
    edit28.text:=inttostr(a);

repeat
     strV:=strV+F.Strings[a];

     a:=a+1;
until F.Strings[a]='#Q#Q';


stringgrid1.cells[x1,y1]:= strV ;
 strV:='';
        end;


       end;
  finally
    F.Free;
     end;
   end;
 end;