Help on Making your own font

Any Idea's? I'm trying to make my own font an i tried using loadcharsfromfont2 and its not really working.

I Tried This:

Code:

Program New;

function FindText(var cx, cy: Integer; txt: string; font, xs, ys, xe, ye:
  Integer): Boolean; //by Stupid3ooo
var
  S: Integer;
begin
  S := CreateBitmapMaskFromText(txt, font);
  if xs <= 0 then xs := 0;
  if ys <= 0 then ys := 0;
  Result := FindBitmapMaskTolerance(S, cx, cy, xs, ys, xe, ye, 30, 30);
  FreeBitmap(S);
end;

var
a,x,y:integer;
begin
a := loadcharsfromfont2('Ms Sans Serif',10,false,false,false,false);
if findtext(x,y,'Hi',a,1,1,1279,799) then
begin
writeln('Hi Found at: '+inttostr(x)+', '+inttostr(y));
end;
end.

If you have any ideas on what i'm doing wrong or if you can help me.

 

Wow, i like how FAST this help place is. not one SINGLE post. I guess that is why i never come here...............



**BUMP!!!!**