[Andrey53]

Всем здравствуйте, вот короче возникла такая проблема, что при подключении к MySql программа зависает на некоторое время, а после того как подключится - отвисает и работает норм. Но вот мне надо, чтобы она не зависала, эффект чтобы был такой, как например используешь IdHTTP и IdAntiFreeze, мне подсказали сделать это дело через потоки, но в поток я не силен, вот тут с ними разбираюсь по тиху, но пока не сильно хороший результат. Так вот может есть какой-то другой вариант, если есть подскажите, если тока через потоки, то поправьте, что я уже использую.

Код:

 TNewThread = class(TThread)
 public
  procedure DoConnectMySql;
 protected
  procedure Execute; override;
 end;

procedure TNewThread.DoConnectMySql;
begin
   Form2.MyConnection1.Server:='host';
   Form2.MyConnection1.Username:='user';
   Form2.MyConnection1.Password:='pass';
   Form2.MyConnection1.Database:='BD';
   Form2.MyConnection1.Connect;
end;

procedure TNewThread.Execute;
begin
  inherited;
   Synchronize(DoConnectMySql);
end;

И вот как мне по нажатию на кнопку "Подключиться" сделать, чтобы программа не зависала.
З.Ы. Как уже писал в потоках полный ноль, так что сильно не пинать, а если можно чуток разъяснить