Тут сложно подсказать что то, попробуй просто пробежать весь файл и заменить. Больше сказать ничего не могу.
А про печать могу подсказать только это (печать image):
Code
uses Printers;
var
ScaleX, ScaleY: Integer;
R: TRect;
begin
Printer.BeginDoc;
with Printer do
try
Canvas.TextOut(100, 100, 'Master Chess View for test');
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic);
finally
EndDoc;
end;
может быть поможет...
