TForm1 = class(TForm)
Button1: TButton
Edit1: TEdit;
Label1: TLabel;

procedure Button1Click(Sender: TObject);
private
public

end;

var
Form1: TForm1;
s, i, n: Integer;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
// твой код.
end;