In Statusbar Informationen zur geöffneten Datei eintragen

[mkpre]

Ich möchte gern in eine Statusbar Informationen zum Namen der verwendeten Datei, die gerade geöffnet ist eintragen.
Ich habe dazu schon folgenden Code geschrieben:

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
var datei : TextFile;
     i,j   : integer;
     x,y   : string;

begin
StatusBar1.Panels[0].Text := 'Name der Datei';
StatusBar1.Panels[1].Text := 'Datum';

   opendialog1.Filter := 'CSV (Trennzeichen-getrennt) (*.csv)|*.CSV';
   for i:=1 to zeilenzahl do
     for j:=0 to 3 do
         tab.cells [j,i]:= ' ';
         OpenDialog1.execute;
         assignfile (datei,OpenDialog1.filename);
         reset(datei);
         i :=1;
         readln (datei,x);
         while not eof (datei) do
         begin
            y := IntToStr (i);
            tab.cells [0,i]:=y;
            readln (datei,x);
            tab.cells[0,i]:=copy (x,2,10);
            tab.ColWidths[0] := 80;
            tab.cells[1,i]:=copy (x,13,5);
            tab.ColWidths[1] := 80;
            tab.cells[2,i]:=copy (x,19,56);
            tab.ColWidths[2] := 300;
           i:=i+1;
         end;
         closefile (datei);
         zeilenzahl := i-1;
end;

Ich würde nun gern wissen, wie ich den Namen der Datei in die Statusbar bekomme.
Danke schon mal für Vorschläge, Tipps, etc.