C Code in Delphi?

[implementation]

Delphi-Quellcode:

var
// char ergebnis[32];
  Ergebnis: array[0..31] of char;
// char * erg_ptr;
  erg_ptr: PChar;
// char ** erg_ptr_ptr;
  erg_ptr_ptr: PPChar;
begin
// erg_ptr = &ergebnis[0];
  erg_ptr := @ergebnis[0];
// erg_ptr_ptr = &erg_ptr;
  erg_ptr := @erg_ptr;
  ...
end;