String in Spalte durch xxx ersetzen

[SaFu]

Was mach ich jetzt falsch wenn eine zelle leer ist

Delphi-Quellcode:

procedure ConvertStrings(sl:TStrings);
var i :integer;
begin
  for i := 1 to Pred(sl.Count) do
  if sl[i] = '' then
   begin
    sl[i]:='leer'
   end
   else
  sl[i]:=copy(sl[i],1,length(sl[i])-3)+'xxx'
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ConvertStrings(StringGrid1.Cols[14]);
end;