Сделать кнопку редактирования слов на языке Delphi

[hasanovaaygerim]

Уважаемые программисты! Помогите сделать кнопку редактирования слов для словаря переводческого! нужно установить кнопку редакция, чтобы те слова которые у меня содержатся в словаре, с помощью этой кнопки можно было бы изменить и сохранить.
привожу исходные код того,что есть у меня сейчас

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;

    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
    Form1: TForm1;
  NovSlovo, NovPerevod: String;
  i, p, j, h1, h2: integer;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Items.LoadFromFile('Slovar.txt');
j:=-1;
h1:=ListBox1.Items.Count;

end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
Memo1.Lines.Add(ListBox1.Items[ListBox1.ItemIndex]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    NovPerevod:=' ';
    NovSlovo:=' ';
    i:=-1;
  While i<Memo1.Lines.Count Do
   begin
   i:=i+1;
   end;
  NovSlovo:=Edit1.text+'-'+NovPerevod;
  ListBox1.Items.Add(NovSlovo);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit1.clear;
Memo1.Lines.Clear;
j:=-1;
  Edit1.clear;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin

              //это то, что не могу сделать
end;


procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  h2:=ListBox1.Items.Count;
 if h2>h1 then
  begin
   if MessageDlg('Жаңы сөздөр киргизилди. Сактайлыбы?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
    then
     begin
      ListBox1.Items.SaveToFile('Slovar.txt');
      ShowMessage('Сөздөр сакталды');
    end;
   end;

end;

procedure TForm1.Button1Click(Sender: TObject);

  begin
  While j<ListBox1.Items.Count-1 Do
   begin
    j:=j+1;
    p:=Pos(Edit1.Text, ListBox1.Items[j]);
     if p>0 then
      begin
       Memo1.Lines.Clear;
       Memo1.Lines.Add(ListBox1.Items[j]);
       break;
      end;
     if j=ListBox1.Items.Count-1 then
      begin
       if p=0 then
        ShowMessage('Сөздүктө мындай сөз жок');
         end;
     end;

ListBox1.ItemIndex:=J;

 end;
end.

Спасибо заранее, очень надеюсь на вашу помощь!

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 with ListBox1 do begin
  if ItemIndex<>-1 then s:=Items[ItemIndex];
  if InputQuery('Слово',s,s) then begin
    Items[ItemIndex]:=s;
  end;
 end;
end;

Это если я правильно понял где у тя словарь сидит.

[hasanovaaygerim]

Выводит ошибку
unit1.pas(98,1) Error: Illegal expression
unit1.pas(98,11) Fatal: Syntax error, ";" expected but "identifier TFORM1" found

[Stilet]

У-у-у... Переустанавливай Делфи )
Fatal это печально совсем ))

[hasanovaaygerim]

Я на Лазариусе делаю...его переустановить?
переустановила
только опять та же ошибка, это ошибка указывается на TForm1.FormClose

[Vanta11a]

Горе, горе без ума...

Вы хоть прочитали, ЧТО Вам говорит ошибка? Перевожу:

Ошибка синтаксиса. Ожидалось ";", но обнаружен "identifier TFORM1"

Еще проще: где точку с запятой потеряли?

[Sciv]

У-у-у... Переустанавливай Делфи )
Fatal это печально совсем ))

Виталий, ты жесток. Не у всех есть чувство юмора

hasanovaaygerim, ошибку Вам уже перевели, добавлю: если кликнуть два раза по надписи с ошибкой - редактор перейдет на строку, где эта ошибка выскакивает.

[Stilet]

Виталий, ты жесток. Не у всех есть чувство юмора

Извините, психанул.

только опять та же ошибка, это ошибка указывается на TForm1.FormClose

Проблема в том что ты вставляешь предложенный код прямо в исходник. Это в старых паскалях бы прокатило. Ни в Делфи ни в Лазарусе такой финт не канает. Код нужно вписывать в событие. Событие нужно назначить кнопке. Кнопку нужно кинуть на форму. Если ты не знаешь этого, то тебе еще рано писать что-то. Нужно изучить как настраиваются события для компонентов. Просто потому что дальнейшие любые обьяснения и примеры кода просто приведут к той же ошибке из-за того, что ты не знаешь как правильно воспользоваться кодом.