Bitmap a texto y texto a bitmap

[[seoane]]

Empezado por jachguate

Pero si te vale lo de seoane, creo que puede resultar mas simple, aunque menos orientado a objetos

Hago lo que puedo

Por otro lado, antes del LoadFromStream nunca viene mal colocar la posición del stream a cero:

Código Delphi [-]
Stream2.Position:= 0;

Por lo demás, la solución de jachguate me parece impecable.