Nur mal so als Anreiz um
a) Anzeige und Logik zu trennen
b) ein wenig mehr
OOP zu benutzen
Das ist wahrscheinlich aufgrund des Wissensstands des TE schon zu viel verlangt.
Es wäre schon ein Erfolg, wenn wenigstens eine private Methode benützt würde:
Delphi-Quellcode:
....
private
{ private declarations }
procdure ZeigeErgebnis(Text:string; farbe:TColor);
....
end;
....
procdure TForm3.ZeigeErgebnis(Text:string; farbe:TColor);
begin
Edit1.Caption:= Text;
Edit1.Font.Color:= farbe;
end;