なら ボタンイベントで

with TForm1.Create(Self) do
Left:=Self.Left+10;
show;
end;

とかやってみたら?