Textdatei beim laden RICHTIG anzeigen

[Mucki]

Hallo, frohes neues noch!

Es ist wieder soweit ich komme einfach nicht weiter
und wende mich deshalb an Euch!
Ich habe eine Textdatei gespeichert (Stringgrid 4 x 4 Zellen) die wie unten aussieht.

1 2 3 4

5 6 7 8

9 10 11 12

13 14 15 16

Ich möchte diese Datei laden und habe dazu folgenden Quelltext
zum lesen der Textdatei geschrieben.

Delphi-Quellcode:

var zeile:string;
begin
  if opendialog1.execute then begin
  datname:=opendialog1.filename;
  assignfile(f,Datname);
  reset(f);
   while not eof(f) do begin
   readln(f,zeile);
   stringgrid1.cells[0,0] :=zeile; setzt komplette Zeile in diese Zelle, das möchte ich aber nicht!!
   readln(f,zeile);
   stringgrid1.cells[0,1] :=zeile;
   readln(f,zeile);
   stringgrid1.cells[0,2] :=zeile;
   readln(f,zeile);
   stringgrid1.cells[0,3] :=zeile;
    end;
  closefile(f);
  end;

Ich weiss aber nicht wie man es hin bekommt
das jeder Wert wieder in seiner Zelle angezeigt wird!

Ich dachte so irgendwie:

grid1.cells[0,0] + grid1.cells[1,0] grid1.cells[2,0] + grid1.cells[3,0] :=zeile;