1. sayfa
procedure TForm1.Edit1Change(Sender: TObject);begin if length(edit1.Text) > 0 then Button1.Enabled := true else Button1.Enabled := false;end;procedure TForm1.FormCreate(Sender: TObject);begin Button1.Enabled := false; Edit1.Clear;end;