Строковый калькулятор выдает неправильные значения на русском

unit Unit23;
 
{$mode objfpc}{$H+}
 
interface
 
uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Edit1: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label1: TLabel;
    Label10: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
 
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var c,d : Integer;
  s : string;
begin
  s:=Edit1.Text;
    c:=StrToInt(Edit2.Text);
    d:=StrToInt(Edit3.text);
    Delete(s, c, d);
    Edit4.Text:=s;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 var s, s1 : string;
   c : Integer;
begin
  s:=Edit1.Text;
 c:=StrToInt(Edit5.Text);
 s1:=Edit6.Text;
 Insert(s1,s,c);
 edit7.Text:=s;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
  var
     s : string;
  c,d : integer;
begin
  s:=Edit1.Text;
c:=StrToInt(Edit8.Text);
d:=StrToInt(Edit9.Text);
s:= Copy(s,c,d);
Edit10.Text:=s;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var s,s1 : string;
begin
  s:=Edit1.Text;
  s1:=Edit11.Text;
  edit12.Text:=IntToStr(Pos(s1,s));
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var
  s:string;
begin
  s:=edit1.Text;
  edit13.Text:=IntToStr(Length(s));
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
  Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Edit7.Text := '';
Edit8.Text := '';
Edit9.Text := '';
Edit10.Text := '';
Edit11.Text := '';
Edit12.Text := '';
Edit13.Text := '';
end;
 
 
 
end.