FireDAC Verbindungsproblem

[Janninger]

Hallo zusammen,
ich experimentiere im Moment mit FireDAC und MySQL.
Mein Problem ist bei folgendem Quellcode, dass ich nach dem zweiten Ausführen eine Zugriffsverletzung bekomme.

Falls mir hier jemand auf die Sprünge helfen könnte, wäre ich sehr dankbar.

Delphi-Quellcode:

procedure TForm3.Test_ConnectionClick(Sender: TObject);
begin
  FDConnection1.LoginPrompt := False;
  FDConnection1.Connected := False;
  FDConnection1.Params.Clear;
  FDConnection1.Params.Add('DriverID=MySQL');
  FDConnection1.Params.Add('Name=Mysql_Conn');
  FDConnection1.Params.Add('Server=' + IP.Text);
  FDConnection1.Params.Add('Database=' + Database.Text);
  FDConnection1.Params.Add('User_name=' + User.Text);
  FDConnection1.Params.Add('Password=' + Password.Text);
  FDConnection1.Params.Add('Port=' + Port.Text);
  FDConnection1.Connected := True;
  try
    if FDConnection1.Connected then
      WriteRegistry;
    Application.MessageBox('SQL connection successfull!', 'SQL Connection Test',
      MB_ICONINFORMATION or MB_OK);
     FDConnection1.Free;
  Except
    begin
      Application.MessageBox('SQL connection failed! Check SQL settings!',
        'SQL Connection Test', MB_ICONSTOP or MB_OK);
      FDConnection1.Free;
    end;
  end;
end;