Formater les messages d'erreur

var
lpMsgBuf : PChar;
...
FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER OR FORMAT_MESSAGE_FROM_SYSTEM,
nil, GetLastError(), 0, @lpMsgBuf, 0, nil );

Application.MessageBox(lpMsgBuf,0,0);