[Zander_driver]

1) нарисуй каждую цифру и букву нужного тебе шрифта (удобнее всего имхо в фотошопе), думаю нетрудно будет.
2) дальше надо писать программу... создаем тип

Код:

type
NeonFont = record
   Symbol: Char;
   View: TBitmap;end;
end;

var
Symbols: array [1..256] of NeonFont; //ну или сколько тебе символов 
нуно...
Str: string;

// надо будет для массива по циклу картинки загрузить из файлов или откуда
// и надо Symbol: Char; каждому элементу массива назначить, ну это все цифры+буквы+другие символы которые в этом шрифте должны быть.

//и дальше пишем процедуру на событие On_Change компонента Edit:
procedure TForm1.Edit1Change(Sender: TObject);
var
a,b: integer;
begin
   b:= 1;
   while not (b > Length(Edit1.Text)) do
   begin
   a:= 1;
   while a < 257 do
   begin
   If Symbols[a].Symbol = Edit1.Text[b] then
   begin
      Form1.Canvas.Draw(0,(b - 1) * 60,Symbols[a].View); { тут вместо 60
 пишем ширину символов в пикселах. Поидее они должны быть все 
одинаковой ширины.}
      a:= 256;
   end;
   a:= a + 1;
   end;
   b:= b + 1;
   end;
end;

Теперь тот текст который будешь вводить в Edit будет изображаться как раз таким шрифтом как ты хочешь на форме.
3) сорри если запоздал. Ну вроде не так уж и давно вопрос был...
4) сорри если ответ не совсем такой какого ждали. Но это форум программистов, ведь так?