Sorry. Hier mal die gesamte Procedure:
Delphi-Quellcode:
if vergleicheStringsN(Label11.Caption, Label12.Caption, 5)=True then begin
Label2.Caption:='To X1';
Label3.Caption:='To X2';
Label4.Caption:='To X3';
Label5.Caption:='Options';
Label6.Caption:='Minimized';
Label1.Caption:='Closed';
Form4.TabSheet1.Caption:='Generally';
end else begin
Label2.Caption:='Zu X1';
Form3.Label3.Caption:='Zu X2';
Form3.Label4.Caption:='Zu X3';
Form3.Label5.Caption:='Optionen';
Form3.Label6.Caption:='Minimieren';
Form3.Label1.Caption:='Beenden';
Form4.TabSheet1.Caption:='Allgemein';
end;