Builder : Закрыть по кнопке

[sonya__]

Здравствуйте, у меня возникла небольшая проблема, буду благодарна за помощь..
Мне необходимо создать кнопку, наследницу TButton, которая на нажатию закрывала бы форму. С переопределением свойств разобралась, но как закрыть форму не понимаю.

[Ghost of Night]

Это можно сделать так

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Close;
end;

[sonya__]

)) спасибо но это не то. Мне нужно создать новый компонент, а не просто описать событие в приложении

[Ghost of Night]

Создай новый компонент и замени там весь текст на текст из файла

1.txt