C++ DLL aufrauf nach Delphi übersetzten

[ste_ett]

Code:

procedure EINLESEN.Button5Click(Sender: TObject);
var
i  : integer;
s  : String;
begin
  i := 0;
  ListAllNames(PChar(s),i);
end;