Ponteiros

var
obj1,obj2:TObject;
p:pointer;
begin
 p:=Obj1;
 Obj1:=Obj2;
 p:=nil;

Type
 TUmObjecto = class
  FNome:String;
  procedure MensagemEstatica();
  Procedure Mensagem();virtual;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Obj1,Obj2:TUmObjecto;
p:Pointer;
begin
Obj1:=TUmObjecto.Create;
p:=Obj1;
Obj1.FNome:=´Ricardo´;
Obj2:=TUmObjecto.Create;
Obj2.FNome:=´Outro Nome´;
Obj1:=Obj2;
Showmessage(Obj1.FNome);
Showmessage(TUmObjecto(P).FNome);
FreeandNil(TObject(p));
if Obj1=Obj2 then
  Showmessage(´é claro que se trata do mesmo Objeto´)
else
   Showmessage(´não são diferentes´);
If Obj1 = nil Then
 Showmessage(´é nil´)
else
  Showmessage(´é claro que assim como o Obj2 não sera nil´);
FreeandNil(Obj2); //Nesse momento Obj1 Tb é destruido
Showmessage(Obj1.FNome);
Obj1.MensagemEstatica;
Obj1. Mensagem;  //dara erro de acesso Violado Aqui Método Virtual
Obj1.Free;
Obj1:=Nil;
end;

procedure TUmObjecto.Mensagem;
begin
showmessage(´xiiii deu pau´);
end;

procedure TUmObjecto.MensagemEstatica;
begin
showmessage(´Ola mensagm estatica´)
end;