Window Handle

[delphiUser88]

Hallo funktioniert doch nicht so recht das auslesen von Klasse ListBox

Delphi-Quellcode:

function HListBox(Handle: THandle; dat: LongWord): Boolean;
stdcall;

const
sKlasse = 'ListBox'; //Klasse ListBox
var
cKlasse,cBuffer: PChar;
iLaenge,iTextlaenge: Integer;


begin


iLaenge := length(sKlasse)+1;
cKlasse := AllocMem(iLaenge);

  try
    if GetClassName(Handle,cKlasse,iLaenge) > 0 then begin
      if trim(cKlasse) = sKlasse then begin

         
          iTextlaenge := SendMessage(Handle,LB_GETTEXTLEN,0,0) + 1;
          cBuffer    := AllocMem(iTextlaenge);

                   try

                   SendMessage(Handle,LB_GETTEXT,iTextlaenge,lParam(cBuffer));
                   Form1.ListBox1.Items.Text := trim(cBuffer);

 

                                        finally
                                        FreeMem(cBuffer,iTextlaenge);
                                        end;

                   Result := false;
                   end;
    end;

        finally
        FreeMem(cKlasse,iLaenge);
        end;

end;

Ich möchte den gesamten Inhalt der Klasse Listbox auslesen über die Klasse "RichEdit20W" und WM_GETEXT geht es. Ich könnte natürlich auch die Items über eine Schleife auslesen und dann in meiner per ListBox1.Items.add schreiben wie es hier beschrieben ist dies ist aber ebenfalls missglückt

Wo liegt der Fehler ?