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

type
  Botschaft = class
    gfhrlch: boolean;//true, wenn Trennzeichen falsch benutzt werden
    befehl: string;
    absender: string;
    empfaenger: string;
    nachricht: string;
    parameter: string;
    function MsgToStr: string;//baut aus der Botschaft einen String zum Verschicken + CLRF
    procedure CFromStr(eingabe: string);//füllt die Botschaft mit den Informationen aus dem String mit CLRF am ende
  end;					

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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure Botschaft.CFromStr(eingabe: string);
var laeng, zhlr, i: integer;
    drinnen: boolean;
begin
  {$O-}
  laeng := length(eingabe);
  drinnen := false;
  gfhrlch := false;//<- hier tritt der Fehler auf: nach asm: mov eax,[ebp-$04]
                                                     //mov byte ptr [eax+$04}, $00
  i := 0;
  for zhlr := 1 to laeng do
  begin
    if drinnen = false then
    begin
      if eingabe[zhlr] = '"' then
      begin
        drinnen := true;
        i := i + 1;
      end;
    end
    else
      if ((eingabe[zhlr] = '"') and (eingabe[zhlr+1] = '|') and
        (eingabe[zhlr+2] = '#') and (eingabe[zhlr+3] = '+') and
        (eingabe[zhlr+4] = '|')) or (zhlr = laeng) then
      begin
        if (zhlr = laeng) and (eingabe[zhlr] <> '"') then gfhrlch := true;
        drinnen := false;
      end
      else
        case i of
          1:befehl := befehl + eingabe[zhlr];//wenn ich die Zuweisung oben auskommentiere, bricht er hier ab
          2:absender := absender + eingabe[zhlr];
          3:empfaenger := empfaenger + eingabe[zhlr];
          4:nachricht := nachricht + eingabe[zhlr];
          5:parameter := parameter + eingabe[zhlr];
        else
          gfhrlch := true;
        end;
  end;//for zhlr := 1 to length(tmpstr)
{$O-}
end;					

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

var
   Blablub: Botschaft;
begin
   Blablub := Botschaft.create;
   Blablub. ...
   BlaBlub.free;
end;