ошибка в коду при фильтрации

[курбанниязов]

procedure TForm3.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
DataModule1.MenuName.Filtered:=true;
Unit3.ed:=Edit1.Text;
DataModule1.MenuName.Filter:= Edit1.Text;
end
else
DataModule1.MenuName.Filtered:=false;

end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
DataModule1.MenuName.Filtered:=false;
DataModule1.MenuName.Filter:='[Íàèìåíîâàíèå] LIKE '+#39+Edit1.text+'%'+#39;
DataModule1.MenuName.Filtered:=true;
end
else    DataModule1.MenuName.Filtered:=false;

end;

end.

[Error] Unit3.pas(65): Identifier redeclared: 'TForm3.Edit1Change'

[Stilet]

Нельзя описывать события дважды. Перегружать можно только процедуры, а события должны быть четко один обработчик на одно событие.
А ты тут два разных обработчика описал но с одинаковым именем.