请帮忙改正错误，很短的句子！

Question

请看下面代码有没有问题，如有请改正：
   procedure calu;
   var
     s:TstringList; 
   begin
s.add(‘hello!’);  
   end; 

Answer 1

var
     s:TstringList; 
   begin
  s := TStringList.create;
s.add(‘hello!’);  
  ...

Answer 2

procedure calu;
   var
     s:TstringList; 
   begin
s.add(‘hello!’);  
   end; 
~~~~~~~~~~~~~~~~~~~~~~~~~
var
　 s:TstringList;
begin
  s:= TStringList.Create; //先创建
　s.add('hello!');//注意引号
end;

Answer 3

TStringlist作为一个对象必须先创建,
别忘了用完后的FREE

Answer 4

var
　 s:TstringList;
begin
  s:= TStringList.Create; //创建
　s.add('hello!');//引号
end;

Answer 5

procedure calu;
var
  s:TstringList; 
begin
  s := TStringList.Create ;
  s.add('hello!');
end;

Answer 6

var
     s:TstringList; 
   begin
  s := TStringList.create;
s.add(‘hello!’);  
  ...