prosedur sorunu yardım!!

[fiko19]

slm arkadaslar sizden bi ricam olacak

şuanda mediaplayer programımı yaptım fakat alttaki prosedurde hata veriyor

procedure TForm5.SpeedButton2Click(Sender: TObject);
var
s1,s2,s:integer;
a:string;
begin
if edit2.Modified then
begin
form5.Timer2.Enabled:=false;
a:=edit2.Text;
s1:=(form6.scrollbar1.Position);
s2:=strtoint(a);
s:=s1-s2;
form6.scrollbar1.Position:=s;
form5.Timer2.Enabled:=true;
end;
end;

error unit5.pas: statement expected but 'PROCEDURE' found hatası veriyor nasıl düzeltebilirim bu hatayı


prosedur çağırma listem alttaki gibidir
type
TForm5 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Edit3: TEdit;
Timer2: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Timer2Timer(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);

[mussimsek]

Merhaba,

Sanki bu procedure'den önceki fonksiyon veya procedure'de bir hatanız var gibi. Burda başka birşey olmalıydı, procedure var diyor. Her begin'e karşı bir end var mı, noktalı virgüller vs. tamam mı bir kontrol edin.

Kolay gelsin.

[conari]

Mustafa Abi,
Başlık gözden kaçmış bence(yoksa kesin kilitlerdin)

[khanco]

procedure TForm5.SpeedButton2Click(Sender: TObject);
bu satırdan önce aradığı bir şeyler var bu satır olmamalıydı der.

[LifeTime]

Kesinlikle sorun buraki procedure'den önceki bir hatadan kaynaklanıyor. Begin'e karşılık kapatılmamış bir end olabilir.
Yalnız önceki derken bu hata 1 önceki proc'dan olabileceği gibi daha da önceki kodlardan olabilir.

[CiTiZEN]

imlecin koyu renkte konumlandığı yerd end türevi bir ifade eksik