[kast2k]

Код:

procedure FindWords(posl_bukva:string);
var
temp_word:string;
i:integer;
begin
for i:=0 to stringlist.count-1 do
  begin
    temp_word=stringlist.strings[i];
    if temp_word[1]=posl_bukva then
      listbox1.items.add(temp_word)
  end;
end;