请教，怎么改这个简单多线程

请问，如何改这个简单多线程？
这是一个调用OLE的代码。。

请问如何放到多线程里？

谢了。。

if     DwgPath <> ' '   then                         OLEfileFrame1.OleContainer1.CreateLinkToFile(DwgPath,false);

[解决办法]
type
TOleThread = class(TThread)
private
procedure GenFile;
public
procedure execute;override;
end;
procedure TOleThread.GenFile;
begin
if DwgPath <> ' ' then OLEfileFrame1.OleContainer1.CreateLinkToFile(DwgPath,false);
end;