[[jcarteagaf]]

Segun entendi lo que quieres hacer es:

Código Delphi [-]
with (Sender as Tcontrol) do
begin
  Top := nuevo_valor;
  Left := nuevo_valor_left;
end;

Saludos