procedure TTWICImageMain.FormCreate(Sender: TObject);
begin
  TPicture.RegisterFileFormat('NEF','NEF Format',TWICImage);
  FWic := TWicImage.Create;
end;

procedure TTWICImageMain.FormDestroy(Sender: TObject);
begin
  FWic.Free;
end;

procedure TTWICImageMain.SpeedButton4Click(Sender: TObject);
  var P : TPicture; freq, startTime, endTime: Int64; startTimer, EndTimer: Cardinal;
begin
  if OpenPictureDialog1.Execute then begin
    StartTimer := GetTickCount;
    QueryPerformanceFrequency(freq);
    QueryPerformanceCounter(startTime);
    FWic.LoadFromFile(OpenPictureDialog1.FileName);
    QueryPerformanceCounter(endTime);
    EndTimer := GetTickCount;
    Image1.Picture.Assign(FWic);
    Memo1.Lines.Add(WICImageFormatDescription(FWIC));
    Memo1.Lines.Add('GetTickCount benötigte etwa ' + IntToStr(EndTimer - startTimer) + 'ms');
    Memo1.Lines.Add(('FWic benötigte etwa ' + IntToStr((endTime - startTime) * 1000 div freq) + 'ms Ladezeit'));
  end       //
  else
    raise Exception.Create('Die Datei existiert nicht');  { Otherwise raise an exception. }
end;

function TTWICImageMain.WICImageFormatDescription(const WIC: TWICImage): string;
  var GUID_ContainerFormatNEF : TGUID;
begin
  Result := '';
  case WIC.ImageFormat of
    wifBmp: Result := 'Bitmap';
    wifPng: Result := 'PNG';
    wifJpeg: Result := 'JPEG';
    wifGif: Result := 'GIF';
    wifTiff: Result := 'TIFF';
    wifWMPhoto: Result := 'JPEG XR';
    wifOther:
    begin
      CreateGUID(GUID_ContainerFormatNEF);
      if GUIDToString(WIC.EncoderContainerFormat) = GUIDToString(GUID_ContainerFormatNEF) then
        Result := 'NEF'
      else
        Result := 'WIC.EncoderContainerFormat := ' + GUIDToString(WIC.EncoderContainerFormat)+ #13#10 +
                  'GUID_ContainerFormatNEF := ' + GUIDToString(GUID_ContainerFormatNEF);
    end;
  end;
end;

unit server;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdTCPServer;

type
  TForm1 = class(TForm)
    TCPServer: TIdTCPServer;
    procedure TCPServerExecute(AContext: TIdContext);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
tcpserver.Active:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
tcpserver.Active:=false;
end;

procedure TForm1.TCPServerExecute(AContext: TIdContext);
begin
if acontext.Connection.IOHandler.ReadLn=('hallo') then
showmessage('moin');;
end;

end.

unit client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, StdCtrls;

type
  TTCPClient = class(TForm)
    TCP: TIdTCPClient;
    Connect: TButton;
    Disconnect: TButton;
    Send: TButton;
    PortE: TEdit;
    procedure ConnectClick(Sender: TObject);
    procedure DisconnectClick(Sender: TObject);
    procedure SendClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  TCPClient: TTCPClient;

implementation

{$R *.dfm}

procedure TTCPClient.ConnectClick(Sender: TObject);
begin
Tcp.Host:=portE.Text;
tcp.Port:=8090;
tcp.Connect();
end;

procedure TTCPClient.DisconnectClick(Sender: TObject);
begin
tcp.Disconnect;
end;

procedure TTCPClient.SendClick(Sender: TObject);
begin
tcp.IOHandler.WriteLn('hallo');
end;

end.

procedure TTWICImageMain.SpeedButton4Click(Sender: TObject);
  var P : TPicture;
begin
  if OpenPictureDialog1.Execute then begin
    if FileExists(OpenPictureDialog1.FileName) then begin
      FWic.LoadFromFile(OpenPictureDialog1.FileName);
      Image1.Picture.Assign(FWic);
      ShowMessage(WICImageFormatDescription(FWIC));
    end
    else
      raise Exception.Create('Die Datei existiert nicht');  { Otherwise raise an exception. }
  end;
end;

 SQL.Clear; 
 SQL.Add('select sum(ABFStatMenge) as aktuell from ABFStat '); 
 SQL.Add('where ABFStatArtNr = '+QuotedStr(DataModule2.ADOTable2ArtNr.Value)); 
 SQL.Add('and ABFStatDatum between #01/01/2012# and #31/12/2012#'); 
 Open; 
 aktuell.Caption:= 'Aktuell:  '+FieldByName('aktuell').AsString; 
 close; 

typedef enum Procedure {

   SRG,

   OR,

   NONOR,

   SRG_CONFLICT,

   OR_CONFLICT,

   NONOR_CONFLICT_CHOP_DATE

};

PEvent = procedure(ASender : TObject; AEvent : TEvent) of object;
PEventValueChange = procedure(ASender : TObject; AEvent : TEventValueChanged) of object;

TDelegate<T : TEvent; P> = class
    var FList : TList<P>;
    constructor create;
    procedure Add(AProcedure: P);
    procedure Rem(AProcedure: P);
    procedure doEvent(ASender : TObject; AEvent : T);
end;

procedure TDelegate<T,P>.doEvent(ASender : TObject; AEvent : T);
var Proc : P;
begin
    for Proc in Flist do Proc(ASender,AEvent)
end;