Quelltext einkürzen

[Jumpy]

Schön wäre halt auch eine Vorabinfo, worum es überhaupt geht.

Generell: Um das auf mehrere Prozeduren/Funktionen aufteilen zu können, könnte man als ersten Schritt manche der Variablen in ButtonStartClick nicht lokal deklarieren, sondern als variablen/Felder der Form. Dadurch kann man dann von verschiedenen Prozeduren aus darauf zugreifen und ButtonStartClick könnte dann so aussehen:

Delphi-Quellcode:

procedure ButtonStartClick(Sender: TObject);
begin
  BerechneZeiten; //Oder was auch immer du da machst
  GebeZeitenAus;  
end;

Anstatt eine Boolche Variable für die Sprache zu nehmen, wäre eine Aufzählung/Enumeration schöner und lesbarer, zudem könnten so leichter neue Sprachen hinzukommen.

Delphi-Quellcode:

type TSprache = (Deutsch, Englisch, Spanisch, Dänisch); 

//in der Klasse:
...
private 
  Sprache:TSprache

procedure GebeZeitenAus;
begin
  Case Sprache of
    Englisch: GebeZeitenAusInEnglisch;
    Spanisch: GebeZeitenAusInSpanisch;
    //usw.
  end;
end;