1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Procedure Fehlerliste_Ausgeben();
Var iIndex: Integer;
    sText: String;

  Begin
    Try
      If Not(bFehler_Anzeigen) Then Exit;
      If (lFehlerliste <> Nil) Then
        Begin
          sText:='';
          iIndex:=0;
          While iIndex < (lFehlerliste.Count) Do
            Begin
              If iIndex = 0 then
                sText := lFehlerliste[iIndex]
              Else
                sText := sText +#10#13+lFehlerliste[iIndex];

              Inc(iIndex);
            End;

          If Not(sText ='') Then
            ShowMessage(sText);
            //Application.MessageBox(PChar(@sText),Pchar('Fehler'),48);

          FreeAndNil(lFehlerliste);
        End;
    Except
    End;
  End;                    

1:
2:

var
   sText: string;                    

1:
2:
3:
4:

For iIndex:=0 to 400 Do
  Stext:=Stext+IntToStr(iIndex);

a:=length(Stext);                    

1:

ShowMessage(IntToStr(sizeof(Stext)));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure Fehlerliste_Ausgeben();
begin
  if bFehler_Anzeigen and Assigned(lFehlerliste) then
  begin
    if lFehlerliste.Text <> '' then
      ShowMessage(lFehlerliste.Text);
    FreeAndNil(lFehlerliste);
  end;
end;                    

1:
2:

{$H+}
 sText: String