[NumLock]

Сообщение от TotKtoNado

если таким образом обьявлять объекты то он работать не будет

все прекрасно будет работать:

Код:

var
  AObject: TObject;
begin
  AObject:=TObject.Create;
  ShowMessage(AObject.ClassName);
  AObject.Free;
end;