Ошибка синтаксиса в инструкции insert into

procedure TForm3.sButton2Click(Sender: TObject);
begin
if (sedit1.text <> '') and (sedit2.text <> '') and (sedit3.text <> '') then
       begin
        ADOQuery1.Parameters.ParamByName('Login').Value:=sEdit1.Text;
        ADOQuery1.Parameters.ParamByName('Pass').Value:=sEdit2.text;
        ADOQuery1.Parameters.ParamByName('kosh').Value:=sEdit3.Text;
 
        ADOQuery1.ExecSQL;
end;
end;

unit Unit3;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sEdit, sButton,
  Vcl.Imaging.jpeg, Vcl.ExtCtrls, Data.DB, Data.Win.ADODB, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, sPanel;
 
type
  TForm3 = class(TForm)
    Image1: TImage;
    sButton2: TsButton;
    sPanel1: TsPanel;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sEdit3: TsEdit;
    ADOQuery1: TADOQuery;
    procedure sButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
 
implementation
 
{$R *.dfm}
 
uses Unit2;
 
 
procedure TForm3.sButton2Click(Sender: TObject);
begin
if (sedit1.text <> '') and (sedit2.text <> '') and (sedit3.text <> '')  then
begin
ADOQuery1.Parameters.ParamByName('RegLogin').Value:=sEdit1.Text;
ADOQuery1.Parameters.ParamByName('RegPass').Value:=sEdit2.text;
ADOQuery1.Parameters.ParamByName('Regkosh').Value:=sEdit3.Text;
ADOQuery1.ExecSQL;
end;
end;
 
 
 
 
end.

Showmesage(ADOQuery1.SQL.Text);

ADOQuery1.SQL.text:='INSERT INTO User (Login,Pass, kosh) VALUES('+QuotedStr(sEdit1.Text)+', '+QuotedStr(sEdit2.Text)+', '+QuotedStr(sEdit3.Text)+')'
ADOQuery1.ExecSQL;

Showmesage(ADOQuery1.SQL.Text);