Проверить заполнен ли subitems

[bulldog5293]

как проверить что после цифр идёт текст, то есть если нету текста то удалить цифры, пробывал так

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  LST: TListItem;

const
  MassWord: array[0..5] of String = ('1', 'хлеб', '2', 'батон', '3', '');

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ItemIndex: integer;
SubItem: string;
CName: string; CSize: integer; Index: integer;
i: integer;
begin
if pos(Edit1.text,ListView1.Items.Item[0].SubItems.Text)<>0 then
 begin
 ShowMessage(Edit1.text+' найден');
 ShowMessage('запись '+Edit1.text+' будет удалина');
 begin
  with ListView1.Items do
    begin
  i:=Item[ItemIndex].SubItems.IndexOf('Edit1.text');
if i<>-1 then Item[ItemIndex].SubItems.Delete(i);
      ShowMessage('запись '+Edit1.text+' удалина');

 end;
 end;
  end
else
begin
 ShowMessage(Edit1.text+' не найден');
begin
  end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  LST := ListView1.Items.Add;
  LST.Caption := 'тра-ля-ля';
  ListView1.Columns.Add;
  LST.SubItems.add('тра-ля-ля');
  i := 0;
  ListView1.Columns.Add;
  while i <= length(MassWord)-1 do
  begin
    LST.SubItems.Add(MassWord[i]);
    ListView1.Columns.Add;
    inc(i);
begin
edit1.text:='';
end;
  end;
  end;

end.

но без результатно

[bulldog5293]

почему всё же не выходит у меня так, ведь edit полностью очищен, а мне пишит что нет такой, хотя запись есть