Могу сказать, что совсем не разбираюсь, только учусь. Вроде высвечивает ошибку, в самом начале в procedure, буду благодарна, если объясните в чем.

[kissmurliss]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Shape1: TShape;
se1: TSpinEdit;
tmr1: TTimer;
procedure Button1Click(Sender: TObject);
procedure TimerTimer(Sender: TObject);
procedure Button1.DownClick=(Sender: TObject);
procedure se1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
k:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=se1.Value;
tmr1.Enabled:=not tmr1.Enabled;
if tmr1.Enabled then button1.Caption:='STOP'
else button1.Caption:='START';

end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
if (k=1)and (Shape1.Left+Shape1.Width+1>=Form1. ClientWidth) then k:=2;
if (k=2) and (shape1.Left<=0) then k:=1;
Case k of
1: shape1.Left:=shape1.Left+10;
2: shape1.Left:=shape1.Left-10;

end;
end;



end.

[Black Fregat]

Ещё бы знать, какая ошибка! И в какой из procedure

[kissmurliss]

Пишет Expected '=' but '(' found

[Аватар]

procedure Button1.DownClick=(Sender: TObject);

[kissmurliss]

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

[Аватар]

Так и разберись для общего развития в #4 ))

[kissmurliss]

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

[Аватар]

Да сравни хотя бы с соседними определениями методов. Глаза то есть наверно )) Там вообще два лишних

procedure Button1Click(Sender: TObject);
procedure TimerTimer(Sender: TObject);
procedure Button1.DownClick=(Sender: TObject);
procedure se1Change(Sender: TObject);