if Mulai then
begin
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
  Sleep(100);
  button1.Caption := 'Start';
  Mulai := False;
end
else
begin
  button1.Caption := 'Stop';
 IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt(Edit3.Text);
IdMappedPortTCP1.MappedHost := Edit1.text;
IdMappedPortTCP1.MappedPort := StrToInt(Edit2.Text);
IdMappedPortTCP1.Active := True;
  Mulai := True;
end;