Traduccion de función VB a delphi !!!

[Jan_polero]

Hola a todos.Estoy buscando cómo evitar que aparezca el administrador de tareas al pulsar CTRL+ALT+SUPR.
He encontrado una función del API de windows que siumula la ejecución del salvapantallas.En este estado
la combinación de éstas teclas no tiene ningún efecto.El problema es que mis conocimientos de VB son
muy limitados y me gustaría saber si alguien puede pasarla a delphi,o decir cómo se puede hacer esto en delphi.
La función es la siguiente:

 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, _
	ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97&

Private Sub DesHabilitar_Click()
	Dim lngRet As Long
	Dim blnOld As Boolean
	lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnOld, 0&)
End SubPrivate Sub Habilitar_Click()
	Dim lngRet As Long
	Dim blnOld As Boolean
	lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, blnOld, 0&)
End Sub

Gracias por adelantado.