[Resolvido] Alterar memory stream

[DouglasP 1]

Bom dia amigos,

Queria saber como posso alterar uma string em um memory stream, segue meu código,

ele escreve porem fica tudo em simbolos.

 

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 MyStream: TMemoryStream;
 C: string;
 Cont: integer;
begin
 MyStream := TMemoryStream.Create;

 MyStream.Clear;
 try
   MyStream.LoadFromFile(GetCurrentDir()+'\game.exe');

   C := 'BBBBBBBBBBBBBBBB';

   MyStream.Position := 1388135;
   MyStream.WriteBuffer(C, Length(C));

   MyStream.SaveToFile(GetCurrentDir()+'\game2.exe');
 finally
 MyStream.Free;
 end;
end;

 

Grato.

[DouglasP 1]

Resolvido.