замените
Код:
Edit2.Text:=Edit2.Text+inttostr(e)+'*';
на)
Код:
if z=1 Edit2.Text:=Edit2.Text+inttostr(e) else Edit2.Text:=Edit2.Text+inttostr(e)+'*';
вроде должно работать
а еще можно)
Код:
until z=1;
Delete(Edit2.text, length(Edit2.text),1);
end;
но лучше правда предотвращать его появление а не убирать)