If (GetVersion() and $80000000)<>0 then
// ...'Windows 95/98'...
else
// ... 'Windows NT'...
end;