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.