Programa utilizando TStringlist no Delphi

To tentando fazer um programa que guarde, e exiba na tela o que eu digitei, se digitei algo repetido mostre o que eu digitei e o contador, por exemplo, digito Dev 3 vezes e ele mostra Dev = 3.
Meu código até agora:

procedure TForm1.BT_GUARDARClick(Sender: TObject);
var
x : integer;
y : string;
begin
if (Lista.IndexOf(Edit1.Text) <> (-1)) then
begin
y := Lista.Values[Edit1.Text];
x := strtoint(y) + 1;
Lista.Values[Edit1.Text]:= inttostr(x);
Edit1.Clear;
end
else
begin
Lista.commatext := Lista.commatext + '', '' + Edit1.Text + ''=1'';
Edit1.Clear;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 1 to Lista.Count-1 do
showmessage(Lista.Names[i]+ ''='' +Lista.ValueFromIndex[i]);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Lista.Free;
Lista:= NIl;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Lista := TStringList.Create;
end;

end.