pasar contenido de pchar a string

[Mick]

Hombre, la forma normal es simplemente asignarlos y listo, hacer un bucle aunque valido (el del ejemplo habria que corregirlo ya que no se fija el tamaño del string asi que dara error) es un poco matar moscas a cañonazos ademas de mas lento.

var
  datos: pchar;
  final :string;

begin
    final:= datos;
end;