var
  generalPtr : Pointer;  // Указатель на что-нибудь
  formPtr    : ^TForm;   // Указатель на объект формы

begin
  // Форма текущего модуля адресуемая через ключевое слово self
  generalPtr := Addr(self);

  // Мы можем присвоить этот указатель указателю формы
  formPtr := generalPtr;

  // И установить заголовок формы, чтобы показать это
  formPtr.Caption := 'Test program';
end;