[Neeruu]

Prueba con esta Función...

Esta la uso para conseguir la versión de mi Programa...
Puedes modificarla para conseguir el nombre...

Código Delphi [-]
function GetAppVersion:String;
var Size, Size2: DWord;
   Pt, Pt2: Pointer;
begin
    Size := GetFileVersionInfoSize(PChar (ParamStr (0)), Size2);
    if Size > 0 then
     begin
          GetMem (Pt, Size);
          try
             GetFileVersionInfo (PChar (ParamStr (0)), 0, Size, Pt);
             VerQueryValue (Pt, '\', Pt2, Size2);
             with TVSFixedFileInfo (Pt2^) do
              begin
                   Result:= IntToStr (HiWord (dwFileVersionMS)) + '.' +
                            IntToStr (LoWord (dwFileVersionMS)) + '.' +
                            IntToStr (HiWord (dwFileVersionLS)) + '.' +
                            IntToStr (LoWord (dwFileVersionLS));
              end;
          finally
                 FreeMem (Pt);
          end;
     end;
end;

Si la modificas y anda publica...
Saludos...