TStrings - dodanie znaku do linii

Jak dopisać jakiś znak w TStrings do linii?
mam cos takiego:

var 
sss: tstrings; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
sss := TStringList.Create; 
sss.Add('Ala ma'); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
sss.??? ('kota'); 
end; 

Chodzi mi żeby po nacisnięciu buttona dopisał sie wyraz "kota" do tej linii co powstała przy FormCreate

sss.Strings[0]:=sss.Strings[0]+(' kota');
showmessage(sss.Strings[0]);