TStringList不是线程安全的，当我们在线程用到他是，要做保护。方法有两种，一种是用delphi自带的Critical，另外一种就是kbmMW为我们提供的TkbmMWLock类。

现在我们看看如何用TkbmMWLock为TStringList做线程安全：

1.基于TStringList声明自己的类：

TThreadStringList=class(TStringList)

2.在该类中增加kbmMWLock实例

Private

 

FLock:TkbmMWLock;

在类的Create及Destructor方法中建立与取消

3.调用方法

当我们在操作ThreadStringList实例时，调用kbmMWLock的的Lock.BeginWriet及Lock.EndWrite方法进行保护就行了。

4.附最后的代码：

TThreadStringList=class(TStringList)

Private

  FLock:TkbmMWLock

public

  constructor Create;override;

  destructor Destroy;override;

  property Lock:TkbmMWLock Read FLock;

end;

constructor TThreadStringList.Create;

begin

  inherited Create;

  FLock:=TkbmMWLock.Create;

end;

destructor TThreadStringList.Destroy;

begin

  FLock.Free;

  inherited Destroy;

end;

使用该类的代码：

sl:TThreadStringList;

...

sl.Lock.BeginWrite;

try

  sl.Add('Test!');

finally

  sl.Lock.EndWrite;

end;

当然，这里的操作sl,含读与写两种操作。

通过上面说明，我们看到了TkbmMWLock的用法，就是为一个类增加一个线程锁，实际上，kbmMW本身很多的类，就是用kbmMWLock加线程锁的，我们也可以随时利用kbmMWLock为自己的类加锁。

当然，不喜欢这样，想用Delphi自带的来保护线程也一样，全凭个人喜好了！