E2003 Undefinierter Bezeichner: 'QueryInterface'

[MacGuyver]

Moin Leute

Irgendwie bekomme ich das mit dem Interface nicht hin. Ich habe mir etliche Beispiele angeschaut und verstehe nicht, was ich falsch mache:

Delphi-Quellcode:

program TestInterface;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  ITest = interface
    ['{A6C342E9-61FE-404C-BAB2-7618E6387E5F}']
    procedure DoTest;
  end;

  TTest = class (TObject, ITest)
    procedure DoTest;
  end;

{ TTest }

procedure TTest.DoTest;
begin
end;

var
  t : TTest;
begin
  t := TTest.Create;
  try
    t.DoTest;
  finally
    t.Free;
  end;
end.

Wieso wirft er "E2003"?