Modificar el tamaño y posicion de un TreeView

[cslbcn]

mmm. no lo entiendo. Tal y como tengo escrito mi código no hay alguna forma mas sencilla de modificar los atributos. Como digo, si solo pongo:

Código Delphi [-]
procedure TForm1.TreeViewAmpliar(Sender: TObject);
begin
    Top    := 100;
    Left   := 100;
    Height := 500;
    Width  := 500;
end;

Me cambia los atributos del Form1. Si solo quiero que me los cambio de Treeview seleccionado?