анимация в delphi 7

[Ignessa]

я сделала анимацию,но,возможно ,не правильно...должна получиться божья коровка...помогите,пожалуйста:

unit unit1;
interface
uses
windows,messages sys units,classes,graphics,controls,for ms,dialogs;
type
TForm1=class(TForm)
private(private declarations)
public(public declarations)
end;
var
Form1:TForm;
implementation
($r*.DFM)
procedure insect(x,y integer);
begin
with Form1.canvas do
begin
pen.color:=rgb(3,3,3);
тело
pen width:=1;
brush.color:=rgb(300,3,3);
pie(x-40,y-30,x+40,y+30,x+40,y,x-40,y);
голова
brush.color:=clblack;
pie(x+40,y-10,x-50,y+9,x+50,y-5,x+40,y-5);

brush.color:=rgb(3,3,3);
ellipse(x-7,y-17,x+7,y+17);

усик
pen.color:rgb(66,0,66);
moveto(x+37,y-7);
lineto(x+50,y-15);
brush.color:=rgb(3,3,3);
ellipse(x+40,y-15,x+45,y-9);
end;
end;

procedure TForm1.Formpaint(sender:Tobject);
begin
y:=round(clientheight/2);
x:=100;
ветка
canvas.pen.color:=rgb(3,130,3);
canvas.pen.width:=12
canvas.moveto(0,y+17);
canvas.lineto(clientwidth,y+7);
Form1.color:=clskyblue;
canvas.pen.mode:=pmnotxor;
insect(x,y);
end;
procedure TForm1.timer1timer(sender:Tobject);
begin
insect(x,y);
x:=x+22
insect(x,y);
end;
end;

[Олвин]

Если Timer1.Interval где-то около 200, то пишем в procedure TForm1.timer1timer(sender:Tobject);

x := x + 1;
y := y + 1;
Repaint;

При этом вызывается Formpaint и в ней - insect(x,y);
Нет смысла дважды писать insect(x,y);.
Слова типа "голова" не скомпилируются, верно?
Дальше. Цвет RGB(3, 3, 3) - это же почти чёрный! Так можно просто clBlack написать. А так нормально всё - таймер, процедура с параметрами x и y. Только я не пробовал запускать.

[Ignessa]

Вы извините,я туплю немного..что на что мне поменять нужно?дело в том,что я тоже не могу запустить,т.к. виста не дает установить эту программу...

[baster128]

Может я дебил конечно. Но моя делфя не понимает модуль сис и фо - это вообще зарезервированное слово. У меня делфя то же 7. У тебя этот код идет чтоли?

[Олвин]

Блин, это же очевидно, строка
uses
windows,messages sys units,classes,graphics,controls,for ms,dialogs;
на самом деле должна выглядеть вот так:
uses
windows,messages, sysutils,classes,graphics,controls,forms,dialogs;
Что с этим кодом случилось? Вы его вручную переписывали откуда-то?

[Ignessa]

да вручную...знаю наделала много ошибок...я вообще учусь на экономиста,но задали сделать анимацию,а я ничего в ней не понимаю

[Олвин]

Так, ясно. Ждите минут 15.

[Ignessa]

Сообщение от baster128

Может я дебил конечно. Но моя делфя не понимает модуль сис и фо - это вообще зарезервированное слово. У меня делфя то же 7. У тебя этот код идет чтоли?

У меня нет этой программы,поэтому я даже посмотреть не могу что там получается...

[baster128]

Сообщение от Олвин

Блин, это же очевидно, строка
uses
windows,messages sys units,classes,graphics,controls,for ms,dialogs;
на самом деле должна выглядеть вот так:
uses
windows,messages, sysutils,classes,graphics,controls,forms,dialogs;
Что с этим кодом случилось? Вы его вручную переписывали откуда-то?

Ты гений я честно не допер. В дебри полез, вспомнил досовскую команду сис и тд, видно спать пора..

[Ignessa]

Сообщение от Олвин

Так, ясно. Ждите минут 15.

Я обязательно буду ждать...спасибо большое