Вопрос знатокам Delphi Какь отловить Error сообщение? Есть сервер с компонентом ServerSoket и есть ++

клиент с компонентом ClientSoket. Когда сервер запущен всё нормально. Когда сервер не запущен Клиент при неудачной попытке соединения выводит Сообщение (см. скрин) КАК сделать чтобы эти Сообщения НЕ выскакивали Желательно выводить сообщения например в метку или добавлять строчки в RichEdit.



procedure TForm1.Button1Click(Sender: TObject);
begin
if Checkbox2.Checked=true then timer1.enabled:=true;
if not constat then
begin
ClientSocket1.Address:=Edit1.text;
ClientSocket1.Active:=true;
Button1.Caption:='Disconnect';
constat:= not constat;

end

else
begin
ClientSocket1.Active:=false;
Button1.Caption:='Connect';

constat:= not constat;
end;

end;