{ 아래에 간단한 예제가 있습니다.
  WinExec 함수를 사용 했구요, 다른 확장자를 가진 파일들도
  이런식으로 하시면 됩니다.}
procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
  if UpperCase(ExtractFileExt(FileListBox1.FileName))
            = UpperCase('.gul') then begin
    WinExec(PChar('C:\Program Files\Samsung\Hun95\HUN95.EXE '
            + FileListBox1.FileName), SW_SHOWNORMAL) end
  else if UpperCase(ExtractFileExt(FileListBox1.FileName))
            = UpperCase('.hwp') then begin
    WinExec(PChar('C:\Program Files\Hnc\Hwp.exe '
            + FileListBox1.FileName), SW_SHOWNORMAL);
  end;
end;
// 그럼 도움 되셨기를...