[NumLock]

Код:

var
  s: String;
  ts: TStringList;
begin
  s:='Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms';
  ts:=TStringList.Create;
  ts.Text:=s;
  ts.Free;
end;