procedure TForm1.Button1Click(Sender: TObject);
begin
    {Refresh;
    //ConnectButton.Enabled := FALSE;
    try
        TnEmulVT1.Disconnect;
        TnEmulVT1.RestoreOptions;
        TnEmulVT1.Connect;
    except
        //ConnectButton.Enabled := TRUE;
        raise;
    end;}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    TnEmulVT1.HostName := '192.168.125.75';
    TnEmulVT1.Port := '23';

  TnEmulVT1.RestoreOptions;
  //try
  TnEmulVT1.Connect;
end;

procedure TForm1.TnEmulVT1DataAvailable(Sender: TObject; Buffer: PChar;
  var Len: Integer);
begin
    if CompareText(Trim(Buffer), 'login:') = 0 then
     TnEmulVT1.SendStr('dims');
    if CompareText(Trim(Buffer), 'Password:') = 0 then
     TnEmulVT1.SendStr('dimssql');

end;
여기서 마지막부분에서 TnEmulVT1.SendStr('dims');
여기까지 되고 멈추네요..
이유를 모르겠네요..
그리고 멈추고 다음에 패스워드를 쳐도 안돼네요..