1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function SysErrorMessage(ErrorCode: Integer): string;
var
  Len: Integer;
  Buffer: array[0..255] of Char;
begin
  Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or
    FORMAT_MESSAGE_ARGUMENT_ARRAY, nil, ErrorCode, 0, Buffer,
    SizeOf(Buffer), nil);
  while (Len > 0) and (Buffer[Len - 1] in [#0..#32, '.']) do Dec(Len);
  SetString(Result, Buffer, Len);
end;					

1:
2:
3:

  MessageDlg('Error:' + #13#10 +
             'Systemfehler: ' + IntToStr(GetLastError) + #13#10 +
             SysErrorMessage(GetLastError), mtError, [mbOk], 0);