Неправильный синтаксис около конструкции

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ComObj, Data.DB,
  Data.Win.ADODB, WinSock, IdBaseComponent, IdComponent, IdIPWatch,
  IdTCPConnection, IdTCPClient, IdHTTP;
 
type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    Edit5: TEdit;
    Label5: TLabel;
    IdHTTP1: TIdHTTP;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
uses Unit1;
procedure TForm2.Button1Click(Sender: TObject);
var
IP : variant;
begin
if not CheckBox1.Checked then
begin
ShowMessage('Для регистрации необходимо cогласиться с условиями использования');
end
else
if Edit1.Text = '' then
begin
ShowMessage('Не введена Фамилия пользователя');
end
else
if Edit2.Text = '' then
begin
ShowMessage('Не введено Имя пользователя');
end
else
if Edit3.Text = '' then
begin
ShowMessage('Не указан Логин пользователя');
end
else
if Edit4.Text = '' then
begin
ShowMessage('Не указан пароль');
end
else
if Edit5.Text = '' then
begin
ShowMessage('Не указан e-mail');
end
else
IP:=IdHttp1.Get('http://www.fensterteam.ru/ip.php');
if IP = '' then
begin
  ShowMessage('Не удалось получить Ip. Проверьте ваше интернет-соединение');
end
else
begin
ShowMessage('Ваш Ip: '+IP);
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into users (fname, name, login, pass, email, ip) values( '+Edit1.Text+', '+Edit2.Text+', '+Edit3.Text+', '+Edit4.Text+', '+Edit5.Text+', ' +IP+ ')' );
ADOQuery1.Open;
Form2.Hide;
Form1.Show;
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form1.Close;
end;
 
end.