var
  Form1: TForm1;
  V:integer;