2 Dateien aus einer FileListBox laden

[SaFu]

hier mal mehr text das

Delphi-Quellcode:

//========Laden der Memos=================================
procedure TForm7.memoladen;
var  memos :TFileName;
          
begin
  
  memos:=(ExtractFilepath('\Bemerkungen\'+FileListBox1.FileName));// 1.
  FileStream.LoadFromFile(memos);
  
end;

//=====StringGrid laden===================================
procedure TForm7.GridLaden;
var Grid :TFileName;
        
begin
  
   Grid:= FileListbox1.FileName;
   FileStream.LoadFromFile(Grid);

end;

//=====Laden vom Plan=======================================
procedure TForm7.FileListBox1Change(Sender: TObject);
Var Dokument :String;
begin
   Dokument:= LowerCase(ExtractFileExt(FileListBox1.Filename));

    if (Dokument = '.txt') then
      begin
       GridLaden;
       if fileload(Filelistbox1.FileName) then //2.
       begin
        memoladen;
        end;
     end;
 end;

bei 1 bekomme ich erneut den ganzenpfad geliefert da hab ich schon einen fehler

und geht das nicht so wie bei 2.