图片上写字

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(00'Delphi XE2 by 小新排骨');
    bit.SaveToFile('hahaha.jpg');
    bit.Free;
    Result:='okokok';
end;
;