Jak programowo sprawdzić SP2

Witam wszystkich.

Mam następujące pytanie:

W jaki sposób moge programowo sprawdzić czy na komputerze z Windows XP zainstalowany jest dodatek SP2?

Z góry dziękuje za odpowiedź

Pozdrawiam serdecznie

Beznadziejny sposob ale jest

var
   osInfo : _OSVERSIONINFOA;
   checkOK : LongBool;
   zmienna: string;
begin
     osInfo.dwOSVersionInfoSize := sizeof(OSVERSIONINFO);
     checkOK := GetVersionEx(osInfo);

                  zmienna:=  osInfo.szCSDVersion;
                      if zmienna = 'Dodatek Service Pack 2'  then
                      ShowMessage('JEst sp2') else
                      ShowMessage('Nie ma');
               end;

Jesli ma ktos lepszy nieich mi napisze. Bo ten jest okropny- bo przez ze mnie zrobiony