anonym := procedure(x: Integer) // hier nicht
begin
...
end;