SpeedButton

[Ko$]

как сделать условие если нажата SpeedButton3 то сделать у Второй формы top:=+50??? т.е. ка то так

procedure TForm1.sSpeedButton8Click(Sender: TObject);
begin
Image1.Visible:=False;
img1.Visible:=True;
sPanel2.Visible:=False;
WebBrowser1.Left:=65;
Form1.Width:=682;
Button1.Height:=73;
Button1.Left:=615;
Button1.Top:=336;
Button1.Width:=32;
if Sender = sSpeedButton3 then
begin
Form2.top:=+50;
end;
end;

???

[IT-man]

if (Sender = sSpeedButton3) then
  Form2.top:=Form2.top+50;

[Ko$]

Не подходит надо как то ещё попробовать

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.itemindex=1 then  //Book
begin
Image1.Visible:=False;
img1.Visible:=True;
sPanel2.Visible:=False;
WebBrowser1.Left:=65;
Form1.Width:=682;
Button1.Height:=73;
Button1.Left:=615;
Button1.Top:=336;
Button1.Width:=32;
 if (Sender = sSpeedButton3) then
 begin
 Form5.Left:=Form1.Left-159;
 Form5.Top:=Form1.Top+50;
 AnimateWindow(Form5.Handle, 800, AW_HOR_NEGATIVE);
 Form5.Show;
end
end
else
if ComboBox1.itemindex=0 then //iPad
begin
Image1.Visible:=True;
img1.Visible:=False;
sPanel2.Visible:=True;
WebBrowser1.Left:=72;
Form1.Width:=657;
Button1.Height:=737;
Button1.Left:=633;
Button1.Top:=40;
Button1.Width:=8;
end
else
if ComboBox1.itemindex=2 then  //Book2
begin
Image1.Visible:=True;
img1.Visible:=True;
sPanel2.Visible:=True;
WebBrowser1.Left:=72;
Form1.Width:=657;
Button1.Height:=737;
Button1.Left:=633;
Button1.Top:=40;
Button1.Width:=8;
end;
end;
end.