1. Fängt eine Mail-Addresse bei Die mir einem > an und hört mit einem < auf?
2. in der While-Schleife musst Du auf ungleich testen
3. Du musst auf die String-Grenzen prüfen
Delphi-Quellcode:
While (anfang <> '>') and (anfang <> ':') do
begin
a := a -1;
if a < 1 then break;
anfang := zeile[a];
end;
While ende <> '<' do
begin
inc(e);
if e >= Length(zeile[e]) then break;
ende := zeile[e];
end;