Dial Up Form Event

procedure TF_Dial.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  sleep(100);
  winexec(PAnsiCHar('rasdial '+sMemo1.text+' /d'),SW_HIDE);
  winexec('Kill rasphone',SW_HIDE);
  winexec('Kill CMD',SW_HIDE);
  sleep(100);
end;

procedure TF_Dial.FormCreate(Sender: TObject);
var  Sem: THandle;
begin  Sem := CreateSemaphore(nil, 0, 1, 'PROGRAM_NAME');
  if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
  begin
    CloseHandle(Sem);
    ShowMessage('Program Ini Sudah Berjalan Sebelumnya.');
    Halt;
  end;
end;

procedure TF_Dial.FormShow(Sender: TObject);
begin
  bersihList;
  sPC1.ActivePageIndex:=2;
  bacakonfig;
end;