проблема

[alex 2000]

помогите,не могу понять ошибку,по логике мой шар (TShape1)должен рекашетить от всех стенок а у меня только от боковых

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm4 = class(TForm)
    Shape1: TShape;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
  procedure shar();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  posx, posy, velx, vely: single;
implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
posx:=1;
posy:=1;
velx:=2;
vely:=3;
end;

procedure TForm4.shar;
begin
 posx:=posx+velx;
 posy:=posy+velx;

 if posx> clientwidth -shape1.Width then
 velx:=-velx;

  if posx<0 then
 velx:=-velx;

  if posy> clientheight -shape1.Width then
 vely:=-vely;

  if posy<0 then
 vely:=-vely;

 shape1.Left:=round(posx);
 shape1.Top:=round(posy);


end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
shar;
end;

end.

[Luuzuk]

posx:=posx+velx;
posy:=posy+velx;

во второй строке вместо vely написано velx. Копипаст — зло

[alex 2000]

это я сам сделал по видео урокам с сайта www.delphiexpert.ru
а вообще спасибо все заработоло