Вылетает ошибка acces violation

procedure TForm1.Edit1Change(Sender: TObject);
var i:integer;
    t:TStringList;
function tip(x:string):string;
var j:integer;
begin
for j:=length(x) downto 1 do begin
if x[j] in ['A'..'Z'] then x[j]:=chr(ord(x[j])+32);
if x[j]=' ' then Delete(x,j,1);
end;
tip:=x;
end;
begin
if tip(Edit1.Text)<>'' then begin
for i:=0 to ListBox1.Count-1 do begin
if Pos(tip(Edit1.Text),tip(ListBox1.Items.Strings[i]))>0 then
ts.Add(ListBox1.Items.Strings[i]);
end;
ListBox1.Clear;
ListBox1.Items.AddStrings(ts);
end else FormShow(Sender);
end;

procedure TForm1.Edit1Change(Sender: TObject);
var i:integer;
    t:TStringList;
function tip(x:string):string;
var j:integer;
begin
t:=TStringList.Create;
for j:=1 to length(x) do begin
if x[j] in ['A'..'Z'] then x[j]:=chr(ord(x[j])+32);
if x[j] in ['А'..'Я'] then x[j]:=chr(ord(x[j])+32);
if x[j]=' ' then Delete(x,j,1);
end;
tip:=x;
end;
begin
if tip(Edit1.Text)<>'' then begin
for i:=0 to ListBox1.Count-1 do begin
if Pos(tip(Edit1.Text),tip(ListBox1.Items.Strings[i]))>0 then
t.Add(ListBox1.Items.Strings[i]);
end;
ListBox1.Clear;
ListBox1.Items.AddStrings(t);
end else FormShow(Sender);
end;