Ругаеться на процедуру...HeLP!!!

[!>Tot@L<!]

http://diller13.narod.ru/error.bmp
Ругаеться на процедуру. что делать?
при попытке запустить выдаёт
http://diller13.narod.ru/error1.bmp

[vunder]

Код: Выделить всё

type
  Form1 = class (TForm)
    Edit1: Tedit;
    procedure formcreate (Sender: Tobject)
.....

а не

Код: Выделить всё

type
  Form1 = class (TForm)
    Edit1: Tedit;
    procedure tform1.formcreate (Sender: Tobject)
.....

[!>Tot@L<!]

Спасибо у меня есть ещё один вопрос

Код: Выделить всё

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure formcreate(sender:tobject);
  private
    { Private declarations }
  public
    { Public declarations }
  end
var
  Form1: TForm1;
implementation

{$R *.dfm}
procedure tform1.formcreate(sender:tobject);
begin
memo1.Text:='yahooo!!!';
end;
end.

Почему memo1 не изменяеться?

[YurikGL]

Код: Выделить всё

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text:='aaaasdf';
end;

end.

У меня все меняется... что я делаю не так? D7
На крайняк попробуй

Код: Выделить всё

Memo1.lines.Text:='aaaasdf';

[!>Tot@L<!]

Не пашет ... Может есть ещё ватианты как вставить Русский текст в memo :?:

[!>Tot@L<!]

Всё разобралсяю.спасибо всем!

[Игорь Акопян]

!>Tot@L<!, есть ощущение что это

procedure tform1.formcreate(sender:tobject);

ты писал вручную. Вопрос - зачем??

[!>Tot@L<!]

Я просто не привезал процедуру к OnCreate ops:
Так вот потскажите как называется эта кнопка по Delphi.Я хочу сделать так чтобы эта кнопка не работала т.е.:
кнопка.enabled:=false;

[Игорь Акопян]

1. Чтобы не приходилось вручную создавать и привязывать события надо дважды кликнуть по соответствующему событию в Object Inspector
2. Самый простой способ - спрятать её - задав св-во BorderStyle := bsDialog