[Never]

Ошибки нет, все работает, но нит ни малейшего упоминания об PHP а мне по заданию сказано чтоб было...

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
  IdCustomHTTPServer, IdHTTPServer, XPMan;

type
  TForm1 = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    Label2: TLabel;
    procedure IdHTTPServer1CommandGet(AThread: TIdPeerThread;
      ARequestInfo: TIdHTTPRequestInfo;
      AResponseInfo: TIdHTTPResponseInfo);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
    IdHTTPServer1.ServeFile(AThread, AResponseInfo,
    Edit1.Text+ARequestInfo.Document);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTPServer1.active:=true;
Button1.Enabled:=false;
Button2.Enabled:=true;
Label2.Caption:='On';
Label2.Font.Color:=clBlue;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdHTTPServer1.active:=false;
Button1.Enabled:=true;
Button2.Enabled:=false;
Label2.Caption:='Off';
Label2.Font.Color:=clRed;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form2.show;
end;

end.

Admin: Пользуемся тегами! При рецедиве последуют санкции!