Dial Up Button Diskonek

procedure TF_Dial.sButton4Click(Sender: TObject);
begin
  sPC1.ActivePageIndex:=0;
  sButton2.Enabled:=True;
  T1.Enabled:=False;
  T2.Enabled:=False;
  T1.Enabled:=False;
  T2.Enabled:=False;
  T1.Enabled:=False;
  T2.Enabled:=False;
  sLabel5.Caption:='---Ready---';
  sListBox1.Items.Clear;
  winexec(PAnsiCHar('rasdial '+sMemo1.text+' /d'),SW_HIDE);
end;