Problem mit Auslesen von Ordner

[ByTheTime]

Hallo,
mein Programm liest die Dateien aus einem Verzeichnis aus und schreibt sie als Item in eine ComboBox:

Delphi-Quellcode:

procedure TFormSettings.GetProfils;
var
  lDir: String;
  lSearchRecord: TSearchRec;
begin
  ComboProfil.Clear;
  lDir := AppDataPath + 'Profiles\';

  if FindFirst(lDir + '*.txt', faAnyFile, lSearchRecord) = 0 then
  begin
    repeat
      if (lSearchRecord.Attr <> faDirectory) then
         ComboProfil.Items.Add(lSearchRecord.Name);
    until
      FindNext(lSearchRecord) <> 0;
      FindClose(lSearchRecord);
  end;
end;

Wenn ich die Anwendung aus führe habe ich aber folgende Probleme:
1. Ich kann kein Element auswählen, also es tut sich nichts wenn ich es aus der Pop-Up-Liste öffne.
2. Wenn ich selbst etwas in die ComboBox schreibe, darf der 1. Buchstabe des Dateinamens nicht der erste Buchstabe sein, den ich eingebe, das heißt meine Testdateien hießen "Test.txt" (). Also konnte ich nie ein "T" als ersten Buchstaben eintippen...

Bitte Helfen