1:

Button1.Align := alBottom;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.AlignControls;
var
  iIndex    : Integer;
begin
  for iIndex := 0 to ComponentCount-1 do begin

    // das Property <Align> ist in TControl definiert, Components[]
    // gibt aber TComponent zurück, deshalb überprüfen
    if (Components[iIndex] is TControl) then begin
      (Components[iIndex] as TControl).Align := alBottom;
    end; // if

  end; // for iIndex

end;					

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

var
  obControl : TControl;
begin
  ...
  if obControl.Tag > 0 then begin
    obControl.Align := alBottom;
  end;
  ...
end;