Use the RTL function SysErrorMessage(GetLastError).

Example:
procedure TForm .Button Click(Sender: TObject);
begin
 {Cause a Windows system error message to be logged}
  ShowMessage(IntToStr(lStrLen(nil)));
  ShowMessage(SysErrorMessage(GetLastError));
end;