Speicher und andere Fehler

[Guste1]

Danke an alle für die Anregungen.

Als ich die Antwort von myquadrat dem Kollegen vorgelegt habe, gab er zu im System etwas geändert zu haben, um was auszuprobieren. Er weiß aber nicht mehr was.

Zu den Fragen nach der speicherung.

Es werden ca. 100-200 Werte gespeichert.
Nach dem ersten Auftreten des Fehlers habe ich alles auf Editfelder umgestellt.
Es werden keine Variablen gespeichert.
Die aufgenommenen Messwerte und die berechnungen werden im Stringgrid dargestellt.

Die ist die Problemstelle. Durch BLANK_BESEITIGEN wird der erste Blank entfernt.
Ein Weiterschalten mit der TAB-Taste wird abgelehnt. ??????
Wird der Blank nicht beseitigt ergibt es beim Ausdruck ein unregelmäßiges Bild.
Da es Dokumente sind ist das nicht erwünscht.

PROCEDURE HAUPTSPEICHERUNG_ALLG_WERTE;
VAR T : TextFile;
Begin
Assign(T,FileNameDat);
{$I-}
Append(T);
{$I+}
WriteLn(T,'Zulassung');
WriteLn(T,'nur Fehler nach DIN');
Entf_B := FrmDatenaufnahme.EdtZul_ohne_von.Text;
BLANK_BESEITIGEN;
WriteLn(T,Entf_B);
Entf_B := FrmDatenaufnahme.EdtZul_ohne_bis.Text;
BLANK_BESEITIGEN;
WriteLn(T,Entf_B);
Entf_B := FrmDatenaufnahme.EdtZul_ohne_Klasse.Text;
BLANK_BESEITIGEN;
WriteLn(T,Entf_B);
WriteLn(T,'nach DKD Fehler + Messuns.');
Entf_B := FrmDatenaufnahme.EdtZul_mit_von.Text;
BLANK_BESEITIGEN;
WriteLn(T,Entf_B);
Entf_B := FrmDatenaufnahme.EdtZul_mit_bis.Text;
BLANK_BESEITIGEN;
WriteLn(T,Entf_B);
Entf_B := FrmDatenaufnahme.EdtZul_mit_Klasse.Text;
BLANK_BESEITIGEN;
WriteLn(T,Entf_B);
Hier werden noch ca. 20 werte abgespeichert.

Glaub nicht "Das geht nicht" jeden Tag steht einer auf der das Gegenteil beweisst.

Danke im vorraus

Klaus