Problem mit OpenDialog - Multiselect

[Blackheart]

Hallo Leute !
Habe folgendes Problem, und zwar möchte Ich Dateiennamen mit Multiselect ins
Memo einfügen nur leider klappt das nur wenn Ich mit der Maus einen Rahmen um die Datei leg und dann auf öffnen klick,
Wenn Ich die Dateien einzeln anklick mit Strg
Bild1
Bild2
Bild3
Bild4
Bild5

kommt folgendes dabei raus die letzte Datei wird immer als erste Angezeigt

Bild5
Bild1
Bild2
Bild3
Bild4

Jetzt hab Ich das folgendermaßen gelöst (siehe unten) nur leider nützt Mir das auch
nicht viel, da Ich ja vieleicht noch eine Datei dazufügen will, dann kommt ja wieder
alles durcheinander.
Ich brauch die Dateien aber eben unbedingt in der Reihenfolge wie Ich sie anklick.
Da Ich vorher nicht weiss wie der User die Eingaben tätigt müsst Ich das irgenwie abfangen.
Hab schon probiert auf die Taste Strg zu reagieren aber leider funktioniert das nicht wenn der Opendialog
geöffnet ist.
Hatte vieleicht einer von euch auch schon mal das Problem.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  
var  
 i:Integer;  
begin  
 if Opendialog1.Execute then  
 begin  
  for i:=0 to OpenDialog1.Files.Count-1 do  
  Memo1.Lines.Add(OpenDialog1.Files.Strings[i]);  
  Memo1.Lines[Memo1.Lines.Count]:=Memo1.Lines[0];  
  Memo1.Lines.Delete(0);  
 end;  
end;