Opendialog,Multiselect,ExtractShortPathName zapis do pliku??

Jak móglbym zapisac sciezki plików zaznaczonych (multiselect) w OpenDialog uzywajac ExtractShortPathName
tak , aby w pliku wyjsciowym otrzymac skrócone sciezki.

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

OpenDialog1.Files.SaveToFile('c:\Documents and Settings\Administrator\Pulpit\a.txt'); - jak uzyskac w pliku ShortPathName

end;

Pliki zaznaczone w OpenDialog są trzymane w tablicy

OpenDialog.Files[]

Więc jedziesz pętlą i zapisujesz...

Extract....(OpenDialog.Files[i]);