مصفوفه لعمل Index لملف Text

[NOna]

إستطعت أن أقارن بين الكلمات بطريقه صحيحه كما يلي

PHP كود :

procedure TForm2.Button3Click(Sender: TObject);
var
  I:LongWord;
  Match:Boolean;
begin
  Memo1.Clear;
  for I:= Low(WArray)to High(WArray) do
  Match:=MatchText(Edit1.Text,WArray);
  if Match = true then
  Memo1.Lines.Add(Edit1.Text)
  else ShowMessage('Not Found');
end; 


ولكن للأسف لم أستطع وضع السطر السابق والتالي للكلمة ولا إسم الملف