// Get status bar handle
hStatus := FindWindowEx(hMain, 0, 'msctls_statusbar32', nil);
if hStatus = 0 then RaiseLastWin32Error;

// Get number of parts in status bar
cParts := SendMessage(hStatus, SB_GETPARTS, 0, 0);

for i := 0 to cParts - 1 do
begin

// Get status bar text into buffer
n := LoWord(SendMessage(hStatus, SB_GETTEXT, i, Integer(pBuf)));
SetLength(s, n);

// Read buffer
if not ReadProcessMemory(hProcess, pBuf, PChar(s), n, n) then
RaiseLastWin32Error;

if s <> '' then
ShowMessage(IntToStr(i) + ': ' + s);
end;