Windows, Stream und String hin her convert fehler

[p80286]

Delphi-Quellcode:

function TKlasse.StringToStream ( const InputString: String; var ResultStream: TMemoryStream ): Boolean;
var
  i: Integer;
begin
// falls was schiefgeht, erstmal falsen
  Result := False;
  if (Length(InputString) >0) then 
  begin
  // falls stream inexistent ist, einen erstellen, ansonsten auf null position stellen
    if (ResultStream = NIL) then
      ResultStream := TMemoryStream.Create
    else
      ResultStream.Position := 0;
    i := 0;
    try
  // stream beschreiben
      i := ResultStream.Write(InputString[1], Length(InputString) * SizeOf(Char));
    finally
  // entweder haben wir es geschafft, oder auch nicht :-)
      Result:= (i = Length(InputString) * SizeOf(Char));
    end;
  end;
end;

Wahrscheinlich geht's besser....

Gruß
K-H