[lmikle]

Ну а кто объекты в элементах массива a будет за тебя создавать?
Уж как минимум:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
    vx:=0;
    vy:=0;
    x:=0;
    y:=0;
    vv:=50;
    g:=1;

    AssignFile(f, 'Block.txt');
    reset(f);
    for i:=1 to 20 do
    begin
      readln(f,a1[i]);
      a[i]:=TImage.Create(Self);
      a[i].Parent := Self;
    end;
    closefile(f);
end;