Прошу помощи:)

[valiza]

всем драсте)суть такова.есть этот код:
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,x: integer;
s1,s: string;
begin


k:=0;

for i := 0 to Memo1.Lines.Count - 1 do
Begin
s1:= Edit1.Text;
s := Memo1.lines[i];
for j := 0 to Length(s)-1 do
Begin
if s[j] = Edit1.Text then k := k + 1;
end;

Label2.Caption := IntToStr(k);

end;

end;
procedure Tform1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('gh.txt');

end;


end.



програма делает подсчет символов в загружонном файле(txt)
мне нужно что б она считала не только по одному символу,а и несколько символов подряд..но чет не выходит нифигапомогите если не трудно)