Delphi - Traducir a Delphi 4

Encontré este código en VB que lo que hace es mostrar un mensaje con el Nº de serie de fabricante de tu PC.
¿ Se puede traducir a Delphi esto ?:
Tambien me sirve que se pueda hacer de otra forma.

Private Sub Form_Load()

Dim Bios, BiosSerial, objFSO, objTextFile

' Captura el serial number
For Each Bios In GetObject("winmgmts:").InstancesOf("win32_bios")
BiosSerial = Bios.SerialNumber
Exit For
Next

MsgBox "Número de serie = " + BiosSerial, yes
End Sub

Muchas gracias por todo.

A ver si este truco te es útil:
http://www.q3.nu/trucomania/truco.cgi?431&esp

Lo primero, gracias por tu ayuda.
Conocía este truco pero esto no funciona para tecnología NT, claro esta que tampoco lo he mencionado en la pregunta.
Gracias otra vez.

Pues tienes razón. Buscando en la página de Torry he visto una unidad para actuar sobre la BIOS. No la he usado y no sé si es lo que buscas, pero ahí lo dejo, para que le eches un vistazo:
http://www.swissdelphicenter.ch/torry/showcode.php?id=748
Suerte.