快来拿分，关于TSERVERCLIENTTHREAD的问题，很简单的！(50分)

自定义了一个线程，不是用 NEW THREAD OBJECT生成的。如下：
type
tmyserverthread = class (tserverclientthread)
private
fmemo:tmemo;
protected
procedure cleintexecute;override;
public
construct create(memo:tmemo;listbox:tlixtbox;createsuspended:boolean;asocket:tserverclientwinsocket);
end;

procedure .....
编译时，提醒 construct create(memo:tmemo;listbox:tlixtbox;createsuspended:boolean;asocket:tserverclientwinsocket);
有错： unsatisfied forward or external declaration 'tmyserverthread.create'
请大虾指教，我用的是 D5 + WIN98[]

Error: construct create
constructor Create(....)
还有你最好不要这样将MainForm的Memo, ListBox传给线程来用，最好发消息给MainForm,让它
去进行异步处理，Postmessage(MainForm.Handle, MyDefineMessage, 0, Integer(Pointer(PChar('message'))))
procedure MyDefineMessageProc(var msg: tmessage);
var
S: string;
begin
S:= PChar(Pointer(msg.LParam));
Memo1.lines.add(S);
Listbox1.items.add(S);
end;

如果Add(S)这些代码是在线程中执行，保证大把的错.

支持copy_paste（拷贝粘贴？）。

好像copy_paste没人注册，哈哈

接受答案了.