procedure TMyFigure.MoveByXY(dx, dy:integer);
begin
  x:=x+dx;
  y:=y+dy;
  if x>Form1.Width then
    x:=1-scale;
  else
    if x+scale<0 then
      x:=Form1.Width-1;

  if y>Form1.Width then
    y:=1-scale;
  else
    if y+scale<0 then
      y:=Form1.Width-1;

end;

procedure Form1.ButtTopClick(....);
begin
  if Radiogroup1.ItemIndex = 1 then
    Fig2.MoveByXY(0, -5);
  else
    Fig1.MoveByXY(0, -5);
end;

//и так для всех осталньных 3х кнопок