unit DLLCaller;

interface

uses
  Classes;

type
  TDLLCaller = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ TDLLCaller }

procedure FancyMessage;stdcall;external 'InitDLL.dll';

procedure TDLLCaller.Execute;
begin
  FancyMessage;
end;

end.