fejfinding på simpel program

hej til alle.


jeg er igang med at lære det her!
så skal lige spørge hvad er det jeg gøre galt her!



procedure TForm1.Button1Click(Sender: TObject);
var
I, Sum: Integer;
begin
edit1.Text := '';
edit1.SetFocus;
sum :=*365;

edit1.Text := intToStr (sum);
end;

end.



der er så mening at når man taster sin alder in skal den visse hvor mange år man har levet.