[TOJluK]

Создаю кнопку:

Код:

Butt:=TBitBtn.Create(nil);
Butt.Parent:= clkForm;
Butt.Width:=171;
Butt.Height:=25;
Butt.OnClick:=onBitClick;

Ну и в onBitClick хочу ее удалить:

Код:

procedure TclkForm.OnBitClick(Sender: TObject);
begin
 if Sender is TBitBtn then
  with (Sender as TBitBtn) do
   begin
   Free;
   end;
end;

Кнопку процедура удаляет, но иногда получаю AccessViolation, т.е. при первом удалении AccessViolation 100%, а потом- то проходит без проблем, то опять AccessViolation. А и еще нейкий Abstract Error после Violation иногда выдает. Где туплю?