Чужой Listbox[Delphi]

[VilAm]

собственно сабж как получить в свой листбокс содержимое чужого listbox-a вот это одна из попыток не приведшая к успеху

var
h:DWORD;
i,k:integer;
buffer:array [0..255] of char;
begin
h:=FindWindow(nil,'имя окна');
 h:=FindWindowEx(h,0,'TListBox',nil);
  i:=SendMessage(h,LB_GETCOUNT,0,0);

   for k:=0 to i-1 do begin
    SendMessage(h,LB_GETTEXT,k,integer(@buffer));
    ListBox1.Items.Add(string(buffer));
   end
end;

отсюда
и вот это не работает

Function GetListBoxData(LHandle: THandle): String;
Var
  I: Integer;
  Len: Integer;
  S: String;
Begin
  Result := '';
  For I := 0 To SendMessage(LHandle, LB_GETCOUNT, 0, 0) - 1 Do
  Begin
    Len := SendMessage(LHandle, LB_GETTEXTLEN, I, 0);
    SetLength(S, Len);
    SendMessage(LHandle, LB_GETTEXT, I, Integer(@S[1]));
    If Result = '' Then
      Result := Result + S
    Else
      Result := Result + sLineBreak + S;
  End;
End;