[Sudamericano]

mejorando el ejemplo anterior, con eso te funcionara correctamente

Código Delphi [-]

var
  datos: pchar;
  final :string;

begin
    final:= pchar(datos);
end;