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

Geschrieben := filestream.Write(strString[1],length(strString));
IF Geschrieben <> length(strString) then
  HierIstWasFaul;
Oder 
BlockWrite(Datei,strString[1],length(strString),Geschrieben);
IF Geschrieben <> length(strString) then
  HierIstWasFaul;					

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

For i := 1 to lenght(strString) do
  begin
  Geschrieben := filestream.Write(strString[i],1);
  IF Geschrieben <> 1 then
  HierIstWasFaul;
  end;					

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

laenge := length(edit1.Text);
     eingabe := edit1.Text;
     for i := 1 to laenge do
     begin
          zahl := byte(eingabe[i]);
          edit2.Text := edit2.Text + intToStr(zahl) + ' ';
     end;