Para tu primer problema:
Código Delphi
[-]
procedure TMyForm.SetAllEditEnabled(AValue: Boolean);
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
TEdit(Components[i]).Enabled := AValue
end;
Para lo segundo puedes hacer algo como:
Código Delphi
[-]
procedure HazAlgoConUnaForma(Form: TForm);
begin
Form.Caption := 'Cualquier cosas que se te ocurra';
Form.Height := 300;
end;
procedure TMyForm.ShowForm(Sender: TObject);
begin
HazAlgoConUnaForma(Self)
end;
El procedimiento HazAlgoConUnaForma puede estar en cualquier unidad. Ahora, si el procedimiento pertenece a la forma en cuestión, no hay necesidad de usar la variable de la forma o puedes usar Self.
Espero me haya dado a entender...
Saludos...