var
  namatema : string;
begin
  for namatema in TDirectory.GetFiles((ExtractFilePath(ParamStr(0)))+'style','*'+TStyleEngine.FileExtension) do
    ListBoxtema.Items.Add(namatema);

uses StrUtils;
function CariNamaFile(const path : string) : string;
var
  posisi, posisiAkhir : Integer;
begin
  posisi := Posex('', Path, 1);
  posisiAkhir := posisi;
  while posisi <> 0 do
  begin
    posisi := Posex('', Path, posisi+1);
    if posisi <> 0 then posisiAkhir := posisi;
  end;
  if posisiAkhir > 0 then
    result := AnsiMidStr(path, posisiAkhir+1, Length(path)-posisiAkhir)
  else
    result := '---'; //nggak ketemu
end;

...
  for namatema in TDirectory.GetFiles((ExtractFilePath(ParamStr(0)))+'style',''+TStyleEngine.FileExtension) do
    ListBoxtema.Items.Add(cariNamaFile(namatema));
...

@andrypein: ini ss nya ini kodingnya

var
  namatema : string;
begin
  for namatema in TDirectory.GetFiles((ExtractFilePath(ParamStr(0)))+'style',' '+TStyleEngine.FileExtension) do
    ListBoxtema.Items.Add(namatema);

itu kode malah menghasilkan full directory nya yang ane pengen cuma si nama file nya aja :roll: semua udah dicoba,dari application.exename ,extract ini itu :(

Procedure GetFileList(var aFiles : TStringList; sPath : string; sMask : string = '. ');
var
 iIndex : Integer;
 SearchRec : TSearchRec;
begin
 if aFiles = Nil then
    aFiles := TStringList.Create;
 if sPath[Length(sPath)] <> '' then
    sPath := sPath + '';
 iIndex := FindFirst(sPath+sMask, faArchive, SearchRec);
 while iIndex = 0 do
 begin
   aFiles.Add(SearchRec.Name);
   iIndex := FindNext(SearchRec);
 end;
 FindClose(SearchRec);
end;