Filestream Teilen und Zeichen vorranstellen

[gandime]

so das funktioniert soweit super blos jetzt hab ich doch beim schreiben nen Problem...

Delphi-Quellcode:

procedure sendbuf2server(s_com:ansistring; fstream:tfilestream);
var
  Buffer : array[0..4096] of char;
  s_text,s_size: ansistring;
  F:TFilestream;
  I: integer;
  ipos:integer;
begin
  repeat
    if fileexists('D:\a.jpg') then
    begin
      f:=TFileStream.Create('D:\a.jpg', fmShareDenyWrite);
    end
    else
    begin
      f:=TFileStream.Create('D:\a.jpg', fmCreate or fmShareDenyWrite);
    end;
    s_text:=inttostr(SizeOf(buffer))+'|'+s_com+':'+inttostr(FStream.Position)+':';
    Move(s_text[1],Buffer[0],length(s_text));
    f.Position:=FStream.Position;
    FStream.Read(Buffer[length(s_text)],SizeOf(Buffer)-length(s_text));
    s_text:='';
    for I := 0 to sizeof(buffer) - 1 do
    begin
      s_text:=s_text+buffer[i];
    end;
    s_size:=split_vor(s_text,'|',true);
    setlength(s_text,strtoint(s_size));
    s_text:=split_nach(s_text,':',true);
    s_text:=split_nach(s_text,':',true);
    s_text:=split_nach(s_text,':',true);
    f.Write(s_text[1],length(s_text));
    f.free;
  end;
end;

das ist mal wieder aus dem kontext gerissen^^ und zwar ist das Problem glaube das setzten der Position da meine Datei die f ausspuckt nur 4,00 kb groß is was mache ich falsch?