Ich habe lange gebraucht, um das zu sehen, aber Du hast eine Variable namens ggT deklariert, die Du gar nicht benutzt. Außerdem werden c und d nicht initialisiert, daher kannst Du auch auf sie verzichten und gleich Zahl1 und Zahl2 übergeben.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var Ergebnis, gggT:integer ;
begin
Ergebnis:= Zahl1 + Zahl2 ;
ggT(Zahl1, Zahl2, gggT) ;
If (IntToStr(Ergebnis) = EditZahl5.Text) and (InttoStr(gggT) = EditZahl6.Text) then
Showmessage('Sehr gut gemacht, weiter so!!!') ;
end;