Juhu, es ist ein Virus!

[flomei]

Na das is ja ne schöne Schei***!
Ich wollte mir bei meinem Überwachungsprogramm die Arbeit nen bisschen erleichtern und deshalb ServerSocket statt TCPServer nehmen...

Dann hab ich aus diesem Quelltext:

Delphi-Quellcode:

unit ServerUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Sockets, ScktComp;

type
  TMainForm = class(TForm)
    LBxComputers: TListBox;
    PageControl: TPageControl;
    TSInfo: TTabSheet;
    TSProgs: TTabSheet;
    TSScreenshot: TTabSheet;
    TSActions: TTabSheet;
    BtnQuit: TButton;
    GBxPCInfo: TGroupBox;
    GBxUserInfo: TGroupBox;
    LBxProgs: TListBox;
    BtnKillSelected: TButton;
    BtnKillAll: TButton;
    LblDoNotKillAll: TLabel;
    LblDoNotKillExplorer: TLabel;
    GBxNetSend: TGroupBox;
    EdtNetSendText: TEdit;
    BtnSendText: TButton;
    BtnDeleteText: TButton;
    GBxComputer: TGroupBox;
    LblShutdown: TLabel;
    LblRestart: TLabel;
    LblScreenOn: TLabel;
    LblScreenOff: TLabel;
    Label1: TLabel;
    ServerSocket: TServerSocket;
    procedure BtnQuitClick(Sender: TObject);
    procedure StartUp(Sender: TObject);
    procedure DeactivateServer(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.BtnQuitClick(Sender: TObject);
  begin
    Application.Terminate;
  end;

procedure TMainForm.StartUp(Sender: TObject);
  begin
    TCPServer.Active := true;
  end;


procedure TMainForm.DeactivateServer(Sender: TObject; var Action: TCloseAction);
  begin
    TCPServer.Active := false;
  end;

end.

Diesen hier gemacht:

Delphi-Quellcode:

...
procedure TMainForm.StartUp(Sender: TObject);
  begin
    ServerSocket.Active := true;
  end;


procedure TMainForm.DeactivateServer(Sender: TObject; var Action: TCloseAction);
  begin
    ServerSocket.Active := false;
  end;
...

Und was passiert: Mein Virenscanner springt an und erschreckt mich fast zu Tode...
Ich dachte: Naja änderst du das mal wieder um... Hab ich gemacht. Der Virenscanner springt immer noch an. Ich verzweifle hier Was hab ich getan? Ich bin echt ratlos! *heul*

MfG Florian

[EDIT] Hab grad mein System gescannt... War nur meine EXE... Warum? [/EDIT]