Kod
Step #1: Install MSTSC ActiveX Control. (componet /import activex control/microsoft
terminal hizmetleri(mstscax.dll)kontrol ekliyoruz.
   activex komponentinden TMsRdpClient2 forma sürükleyin
   daha sonra bir buton ekleyin ve alttaki kodları yazın
 
 
[delphi]
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
rdp.Server := txtComputer.Text; //Set Remote Server
rdp.UserName := txtUserName.Text; //Set UserName
rdp.AdvancedSettings2.ClearTextPassword := txtPassword.Text; //Set Password as a Basic String
rdp.DesktopHeight := 600; //Set Your Height
rdp.DesktopWidth := 800; //Set Your Width
rdp.Connect(); //Connect Client
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
rdp.Disconnect; //DisConnect Client
 
end;
 
[/delphi]