图片上写字

function MakeLogo():string;

var

    bit:TBitmap;

begin

    bit := TBitmap.Create;

    bit.Width := 300;

    bit.Height := 60;

    bit.Canvas.Font.Name := '宋体';

    bit.Canvas.Font.Size := 25;

    bit.Canvas.TextOut(0, 0, 'Delphi XE2 by 小新排骨');

    bit.SaveToFile('hahaha.jpg');

    bit.Free;

    Result:='okokok';

end;