[dec]

Hola,

¿Te servirá algo así?

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   p: Pchar;
 begin
   p := 'caracoles ';
   Caption := StrPas(p);
 end;