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.