also bei mir läuft das problemlos...
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
tC = class
strict private
fMem: Pointer;
public
Constructor Create(p: Pointer);
procedure run;
property Memory: Pointer read fMem;
end;
{ tC }
constructor tC.Create(p: Pointer);
begin
Inherited Create;
fMem := p;
end;
procedure tC.run;
begin
writeln('irgendwas ...');
readln;
end;
var
x: TC;
begin
x := tc.Create(pointer($abcd));
try
x.run;
finally
x.free;
end;
end.
muss also an einer anderen stelle liegen... was rufst du zuvor auf? vielleicht ist die meldung nur verzögert...
BTW: ist deine klasse bereits erstellt?