Memo. Ошибка runtime error 216 at 00404F22

[Karateka]

Облазил в инете, у всех в основном такая проблема в какой-нибудь программе. У меня же просто на форме. Кинул Memo, обращаюсь к нему Memo1.Lines.Add('Aaaa');

И тут вылетает ошибка:

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0051D19D in module 'Project1.exe'. Read of address 000002A8'

Потом окошко с ошибкой:

Runtime error 216 at 00404F22

Как я понял проблема с обращением к памяти по такому-то адресу, только как её исправить. С утра все было нормально, сейчас сел за комп и тут пошли вот такие пироги.

Конечно возможно я допустил где-то ошибку, просто с чемпионатом мира, сейчас особо не высыпаюсь =)

вот код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Memo1: TMemo;
implementation

{$R *.dfm}
begin

Memo1.lines.add('aaa');
end.

[blackstrip]

А главный блок begin-end у формы когда выполняется? Если до того как форма уже существует и показана на экране, то Memo1 не существует либо не может выполнить lines.add на этот момент.

Что-то никогда не пробовал в этот блок что нибудь добавлять кроме обработчиков определенных событий.

[northener]

var
  Form1: TForm1;
  Memo1: TMemo;   // А вот это объявление нафига?
implementation

{$R *.dfm}
begin

Memo1.lines.add('aaa');  //Ты представляешь себе в каком месте модуля эта строчка находится? И когда выполняется код расположенный здесь?

[northener]

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

А главный блок begin-end у формы когда выполняется? Если до того как форма уже существует и показана на экране, то Memo1 не существует либо не может выполнить lines.add на этот момент.

Что-то никогда не пробовал в этот блок что нибудь добавлять кроме обработчиков определенных событий.

Это не главный блок формы. Это секция инициализации паскалевского модуля. Выполняется она еще до создания форм. Кстати обработчики событий располагаются выше этой секции.

[Karateka]

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

var
  Form1: TForm1;
  Memo1: TMemo;   // А вот это объявление нафига?
implementation

{$R *.dfm}
begin

Memo1.lines.add('aaa');  //Ты представляешь себе в каком месте модуля эта строчка находится? И когда выполняется код расположенный здесь?

То есть получается вначале пробегается по блоку begin end, а только потом начинает по форме бегать. Ок, спасибо, будут знать теперь =)

[northener]

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

То есть получается вначале пробегается по блоку begin end, а только потом начинает по форме бегать. Ок, спасибо, будут знать теперь =)

"Потом" может и не быть вовсе. Эта форма может быть и вообще никогда не создана. Но секция инициализации будет выполнена в любом случае.

[XE5]

Memo1: TMemo; // А вот это объявление нафига?

А тогда что это?

type
  TForm1 = class(TForm)
    Memo1: TMemo;//???

в var Memo1 явно излишен. Удивляюсь как вообще это компилируется. Код выполнять желательно внутри процедур (или функций). Это не консоль, чтоб такое вытворять. Шлёпни два раза мышью на пустом месте дизайнера формы, появится процедура создания формы. Там уже можешь писать свои Memo1.Lines