Delphi как указывать проценты

[Ekzamenator]

unit main;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
  procedure ComboBox1Change(Sender: TObject);
  procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s1,s2,Res1,Res:Real;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 case combobox1.ItemIndex of
 0: begin
      Edit1.Text:='3710';
      Edit2.Text:='5155';
      Label1.Caption:='3710';
      Label2.Caption:='5155';
     end;
end;
end;


procedure TForm1.CheckBox1Click(Sender: TObject);
var s1,s2,Res1,Res2 :real;
begin
begin

s1:=StrToFloat(Edit1.Text);
if Checkbox1.Checked=true then  Res:=s1*2
else Res:=s1;

Label1.Caption:=FloatToStr(Res);

end;

begin

s2:=StrToFloat(Edit2.Text);
if Checkbox1.Checked=true then  Res1:=s2*2 // почему тут нельзя указывать  проценты?//
else Res1:=s2;
end;

Label2.Caption:=FloatToStr(Res1);
end;
end.

Как вписать проценты? нужно,чтобы было Res1:=s2+110%

[Valio]

Процент от чего?

110% от 1000 руб это 1100 руб, а от 10 руб это всего 11 руб.

Математически это можно записать так:

a := 1,1 * b;

a - это 110% числа b.