procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Active:=True;
ClientSocket1.Address:=Edit1.Text;
ClientSocket1.Port:=1212;
end;

Ошибка. Сначала назначаем порт, а потом уже открываем