Meus desenhos e gráficos desaparecem quando o formulário é redesenhado. O que fazer?

procedure TForm2.FormPaint(Sender: TObject);
begin
  // este trecho de código mostra como desenhar uma
  // linha vertical no formulário

  // vamos obter o canvas do formulário
  with Form2.Canvas do
    begin
      // vamos mover a caneta para as coordenadas x = 20; y = 20
      MoveTo(20, 20);

      // vamos desenhar uma linha no formulário partindo
      // das coordenadas anteriores até as coordenadas
      // x = 300; y = 20
      LineTo(300, 20);
    end;
end;

private
  { Private declarations }
  x, y: Integer;

procedure TForm2.FormCreate(Sender: TObject);
begin
  x := 10;
  y := 10;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  // força o redesenho do formulário
  Repaint;
end;

procedure TForm2.FormPaint(Sender: TObject);
begin
  with Form2.Canvas do
    begin
      // posiciona a caneta de desenho
      MoveTo(x, y);

      // vamos obter as novas coordenadas x e y;
      x := Random(500);
      y := Random(500);

      // vamos desenhar a linha
      LineTo(x, y);
    end;
end;