[lmikle]

Сначала читаем file2 во временный поток (нельзя ДОписать в начало файла). Потом все пишем в нужном порядке в нужный файл.

Код:

var
  Tmp : TMemoryStream;
  F1, F2 : TFileStream;
  S : String;
begin
  F2 := TFileStream.Create('path',fmOpenRead);
  Tmp := TMemoryStream.Create;
  Tmp.CopyFrom(F2,F2.Size);
  Tmp.Seek(0,0);
  F2.Free;
  F1 := TFileStream.Create('path',fmOpenRead);
  F2 :- TFileStream.Create('path',fmOpenWrite);
  F2.CopyFrom(F1,F1.Size);
  F2.CopyFrom(Tmp,Tmp.Size);
  F2.WriteBuffer(S[1],Length(S));
  F1.Free;
  F2.Free;
  Tmp.Free;
end;

Если файлы текстовые, то проще будет через TStringList.