If (IntToStr(Ergebnis) = EditZahl5.Text) and (InttoStr(gggT) = EditZahl6.Text) then
ggT heißt Deine Prozedur, gggT der damit ermittelte Wert, daher musst Du Letzteres übergeben.
Trotzdem zeigt er mir noch den "Anweisung erforderlich, aber "Integer" gefunden" -Fehler an.
Und der "Operator oder Semikolon fehlt"-Fehler bei "ggTeiler(c,d,gggT)" auch.