Fórum Trabalhando com Move #351700

Estou tentando mover um valor para um ponteiro e está apresentando a seguinte mensagem de erro:

O canvas não está permitindo desenhar.

TTemplate = class
public
// Template data.
tpt: Pchar;
// Template size
size: Integer;
// Template ID (if retrieved from DB)
id: Integer;
// Allocates space to template
constructor Create;
// clean-up
destructor Destroy; override;
end;

constructor TTemplate.Create();
begin
// Allocate memory for template and initialize its size to 0
tpt := AllocMem(GR_MAX_SIZE_TEMPLATE);
size := 0;
end;

destructor TTemplate.Destroy();
begin
inherited;
// free resources
FreeMemory(tpt);
end;



tptRef : TTemplate;

Move(PChar(tmp)^, tptRef.tpt^, SizeOf(tptRef.size));


será que alguém sabe me dizer o que pode estar errado?