source: branches/test1/Server/UFormMain.pas

unit UFormMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, IdHTTPServer;

type

  { TFormMain }

  TFormMain = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.lfm}

end.