2 Dateien aus einer FileListBox laden

[SaFu]

Hi

Habe folgendes Problem

Ich habe eine FilListBox mit der ich zwei dateien gleichzeitig laden will das Problem ist die Dateien liegen in verschiedene Ordener

 1. (ExtractFilePath(ParamStr(0)) + '\Plan\Woche1\Hallo.txt'; die andere mit gleichen namen in

(ExtractFilePath(ParamStr(0)) + '\Plan\Woche1\Bemerkungen\Hallo.txt'; jetzt würde ich gerne die erste datei anklicken so das die geladen wird sie 1. und nach diesem klicken in der FilelistBox soll die zweite 2. auch geladen werden.

versuche es gerade so die erste geht wunderbar

Delphi-Quellcode:

procedure TForm7.FileListBox1Change(Sender: TObject);
Var Dokument :String;
begin
  //Pfad in Variable übergeben RTF mit Pfadangabe
  Dokument:= LowerCase(ExtractFileExt(FileListBox1.Filename));

    if (Dokument = '.txt') then
      begin
       GridLaden; //Die erste mit pfad

        memoladen; // die zweite mit pfad
     end;
 end;

wie kann man das jetzt so realisieren??

Sascha