Problem mit procedure

[scp]

Wenn du das Ergebnis nur ind das Grid eintragen willst, dann würde ich nicht mit procedure sondern mit function arbeiten:

Delphi-Quellcode:

function quadrantx(x:integer) : integer;
begin
  if form1.pbMain.width div 2 > x then
    x := x
  else
  if form1.pbMain.width div 2 < x then
    x := -x;
  result := x;
end;

function quadranty(y:integer) : integer;
begin
  if form1.pbMain.height div 2 > y then
    y := y
  else
  if form1.pbMain.height div 2 < y then
    y := -y;
  result := y;
end;

Wenn des Ergebnis aber auch in der variable x bzw. y gespeichert werden soll, dann musst du vor den Parameter noch ein var setzen:
function quadrantx(var x:integer) : integer;