原本的代码
procedure startall
begin
startmonth;
sartweek;
end;
timer3ontimer;
begin
startall;
end;
procedure startweek;
begin
…..
end;
procedure startmonth;
begin
…..
end;
现在的问题是我怎么样才可以把startmonth,和startweek都改写成多线程呢
我改写了下面的代码
procedure startmonth(p:point);stdcall;
begin
…..
end;

procedure startall
begin
createthread(0,nil,@startmonth,0);
end;
好像不太行吗，有大大可否指点下?

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

当然可以。问题是不知道你的代码究竟有些什么东西，为什么要多线程。

回大大，是这样的，这是个提醒，我分为3个过程，即根据日期，时间，星期进行运作，把这3个过程同一放在一个STARTALL的过程中，然后放在TIMER控件的ONTIMER属性中。就是怕运行时候冲突（如果提醒的时间都一样的话），所以想把每个过程都改写为多线程。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !