Komponent Filelistbox

Poniewaz dostalem odpowiedz odnosnie komponentu memo (przeniesienie do kosza - niestety tak sie n ie da ale juz sobie to obeszlem i poradzilem) prosze o pomoc w jeszcze jednym temacie:

Chcialbym zrobic zeby po dwukliku na komponencie Filelistbox (wybraniu pliku) mozna go bylo np. uruchomic(dla *.exe) lub podejrzec (dla plikow rar/zip) itd. Jak to sie realizuje?

uses ShellApi;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
var Plik : PChar;
begin
 Plik := PChar(FileListBox1.Items[FileListBox1.ItemIndex]);
 ShellExecute(Handle, 'open', Plik, NIL, NIL, SW_NORMAL);
end;

dziękuje za odpowiedz
Pozdrawiam