1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.JvDirectoryEdit1Change(Sender: TObject);
var pfad : String;
begin
   pfad := JvDirectoryEdit.Directory;
   if pfad = '' then
     Button3.Enabled := false
   else
     Button3.Enabled := true;

end;					

1:
2:
3:
4:
5:

procedure TForm1.JvDirectoryEdit1Change(Sender: TObject);
begin
  button3.Enabled := (JvDirectoryEdit1.Directory <> '') and (LabeledEdit1.Text <> '') 
                      and (Combobox1.items.index >= 0);
end;					

1:
2:
3:

pfad := JvDirectoryEdit.Directory;
name := JvLabeledEdit.Text;
Button3.Enabled := IsValidInputComposition(pfad, name, ...);