[ejjj]

привет всем! я всё хочу написать простейший блокнот но чёт не как не вьеду помогите! вот код:

program Bloknot;
var itemId, stringID: integer;
cmdNext : command;
cmdQuit : command;
name : string;
rs: recordStore;
index: integer;
j, Count, c : integer;
CurrRec: string;

begin
// Считываем данные
rs := openRecordStore('names');
name := readRecordStoreEntry(rs, index);
closeRecordStore(rs);
// переход в режим формы со стандартного режима холста(для рисования)
ShowForm;

//добавляем текстовое поле на форму
itemId := FormAddTextField('Текст', '' +name+ '', 9999, TF_ANY);


// Создаем кнопку
cmdNext := CreateCommand('Сохранить', CM_OK, 50);
AddCommand(cmdNext);
// ждать пока не будет нажата кнопка OK
repeat until GetClickedCommand = cmdNext;
// Получаем введенное имя
name := FormGetText(itemId);
// Записываем некие данные в хранилище
rs := openRecordStore('names');
index := addRecordStoreEntry(rs, name );
closeRecordStore(rs);
// переключаемся обратно в режим холста и прорисовываем текст с именем
ShowCanvas;

rs := openRecordStore('names');
name := readRecordStoreEntry(rs, index);

DrawText('Текст: ' + name + '', 0, 0);
Repaint;
// создаем команду выхода
cmdQuit := CreateCommand('Выход', CM_EXIT, 1);
AddCommand(cmdQuit);
repeat until GetClickedCommand = cmdQuit;
end.
не получается считывание записаной инфы! не поддерживается руский(пишет-????? вместо текста) и если ещё обясните как в тхт это сохронять а не в index.dat! за ранее спосибо!