[Zander_driver]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

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) сорри если ответ не совсем такой какого ждали. Но это форум программистов, ведь так?