enthaltene Zahlen am Anfang(!) in Lisbox entfernen

[juergen]

Hallo zusammen,

allen erst einmal schöne Weihnachten!

Ich suche eine Möglichkeit in einer Listbox (im virtuellen Modus) die Daten ohne führende Zahlen und Leerzeichen anzuzeigen.
Im Moment zeige ich in der Listbox nur den Dateinamen an, ohne Pfadangabe und Dateiendung:

Delphi-Quellcode:

procedure TMainForm1.ListBoxData(Control: TWinControl; Index:
  Integer; var Data: string);
begin
  Data := IntToStr(Files.IndexOf(Files[Index]) + 1) + '.....' +
    ChangeFileExt(ExtractFileName(Files[Index]), '');
  //mit Nummerierung der Listeintraege; Ausgabe des Dateinamen ohne Pfadangabe und ohne Dateiendung 
end;

Beispiel:
004 Es weihnachtet so schön --> Es weihnachtet so schön

Ich habe da schon einiges versucht, u.a. mit StringReplace(), aber ich denke damit geht es nicht.

Hat da jemand einen Denkanstoß für mich?

Danke schon mal im Voraus!

//Edit: ich hatte die falsche Delphi-Plattform angegeben...-> geändert