[Janom]

Что-то я тормазнул))

Код:

procedure TForm1.EditsChange(Sender: TObject);
var
  i:Cardinal;
  aTSh:TWinControl;
  aBtn:TButton;
  bool:boolean;
begin
aTSh:=TEdit(Sender).Parent;
bool:=false;
for i:=0 to aTSh.ControlCount-1 do
  begin
    if aTSh.Controls[i].ClassType = TButton then
      aBtn:=TButton(aTSh.Controls[i]);
    if aTSh.Controls[i].ClassType = TEdit then
      if TEdit(aTSh.Controls[i]).Text='' then bool:=true;
    aBtn.Enabled:=bool;
  end;
end;