procedure TForm1.Button1Click(Sender: TObject);
begin
  try
     if Initalise > 0 then
       showmessage('Initalisation Error')
     else
       MessageBox.Text := 'Init OK';
  except
     showmessage('Error in Dll');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   try
      MessageBox.Text := inttostr(Maximum(10,20));
   except
       showmessage('Error in Dll');
   end;
end;

procedure TForm1.SetupBtnClick(Sender: TObject);
begin
  if ActivateServer(strtoint(LocalPort.Text), Address.Text, strtoint(RemotePort.Text)) = 0 then
      MessageBox.Text := 'Server active';
  IpCheck.Enabled := true;
end;

procedure TForm1.ClosebtnClick(Sender: TObject);
begin
  ipcheck.Enabled := false;
  close
end;

procedure TForm1.ReadBtnClick(Sender: TObject);
begin
  MessageBox.Text := ReadLine;
  RemCount.Caption := inttostr(ReadCount);
end;

procedure TForm1.SendBtnClick(Sender: TObject);
begin
   if send(OutputBox.Text, trim(address.Text), strtoint(trim(remotePort.Text))) = 0 then
       messagebox.Text := 'Client connected';
   BSent.Caption := inttostr(ClientBytesSent);
end;