Code abkürzten

[roga]

Delphi-Quellcode:

var
  x, y, z, i: Integer;
begin
  if not TryStrToInt(Edit1.Text, i) then i := 1;
  x := i;
  y := i * 2;
  z := i * 3;
end;

...aber welchen Sinn soll das ergeben? Du übergeibt Werte die nur in dieser Procedure gelten!