настройте кто-нибудь регистрацию и авторизацию не могу понять

unit Unit1;
 
{$mode ObjFPC}{$H+}
 
interface
 
uses
  Classes, SysUtils, mysql50conn, SQLDB, DB, Forms, Controls, Graphics, Dialogs,
  StdCtrls;
 
type
 
  { TForm2 }
 
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MySQL50Connection1AfterConnect(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form2: TForm2;
 
implementation
 uses unit3;
{$R *.lfm}
 
{ TForm2 }
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('Вы зашли под ником='+#39+ Edit2.Text +#39+' играйте на здаровье');
SQLQuery1.Open;
if SQLQuery1.IsEmpty
then
ShowMessage ('Пользователь '+ Edit2.Text +' не найден или вы не подключены к интернету')
else
if SQLQuery1.FieldByName('password').Value<>Edit1.Text
Then
 
ShowMessage ('Введён не верный пароль!')
else
Form2.Hide;
Form3.Show;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  SQLQuery1.Active:=false;
end;
 
procedure TForm2.MySQL50Connection1AfterConnect(Sender: TObject);
begin
 
end;
 
end.

SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('Вы зашли под ником='+#39+ Edit2.Text +#39+' играйте на здаровье');
SQLQuery1.Open;

SQLQuery1.SQL.Text := 'select FullName from Users where User=' + QuotedStr(Edit1.Text) +' and Password=' + QuotedStr(Edit2.Text);
SQLQuery1.Open;
if SQLQuery1.IsEmpty then ShowMessage ('Неправильный пароль или имя пользователя!')
else ShowMessage ('Бобро пожаловать ' + SQLQuery1['FullName']);