OnKeyPress i strzałki i ListFileDir

Chciałbym utworzyć dla pewnego komponentu procedurkę OnKeyPress dla lewej i prawej strzałki. Nie wiem jak się za to zabrać.. Jakie kody mają te klawisze? Jak to zrobić? Szukałem w FAQ i F1 ale niestety pojawiają mi się bezwartościowe informacje.. Proszę o pomoc.
Druga sprawa. Mój poprzedni post wylądował w koszu.

W katalogu "obrazki", mam parę fotek o rozszerzeniu bmp. Chciałbym aby program podczas ładowania (Form1.OnCreate :P), pobierał nazwy plików z tegoż katalogu do listbox'a i odcinał rozszerzenie.

Na torry znalazłem taki kodzik, on jednak robi to co chcę, ale nie odcina rozszerzenia. Jak tego dokonać?:

procedure ListFileDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.bmp', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListFileDir(ExtractFilePath(Application.ExeName), ListBox1.Items);
end;

Dzięki za pomoc

Virtual Key Codes... F1 nacisnąć umiesz?