1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject);
var hwnd, hwnd2: THandle;
Buffer: array [0..255] of Char;

begin

  hwnd:= FindWindow(nil, 'Save Lines');
  if hwnd <> 0 then begin
  hwnd2:= FindWindowEx(hwnd, 0, 'ThunderRT6ListBox', nil);
  SendMessage(hwnd2, WM_GETTEXT, sizeof(Buffer), Integer(@Buffer));
  ShowMessage(String(Buffer));
  Memo1.Lines.Add(String(Buffer))

end else
  ShowMessage('Fee couldnt been found, pls check existance');

end;					

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

function LB_GetAllItems(hWnd: Hwnd; sl: TStrings): string; 
var 
  RetBuffer: string; 
  i, x, y: Integer; 
begin 
  x := SendMessage(hWnd, LB_GETCOUNT, 0, 0); 
  for i := 0 to x - 1 do 
  begin 
    y := SendMessage(hWnd, LB_GETTEXTLEN, i, 0); 
    SetLength(RetBuffer, y); 
    SendMessage(hWnd, LB_GETTEXT, i, lParam(PChar(RetBuffer))); 
    sl.Add(RetBuffer); 
  end; 
end;					

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

procedure TForm1.Button1Click(Sender: TObject); 
var 
  sl: TStringList; 
  ListBox_Handle: THandle; 
begin 
  ListBox_Handle := {...}; // listbox handle per , FindWindowEx suchen
  sl := TStringList.Create; 
  try 
    LB_GetAllItems(ListBox_Handle, sl); 
  finally 
    Memo1.Text := sl.Text; 
    sl.Free; 
  end; 
end;