Ошибка в программе - поиск с хеш функцией

// хеш-функция для символьной строки.
// Возвращает значение в диапазоне от 0 до 100
int HF(char *key)
{
  int len = strlen(key), hashf = 0;
 
  // если длина ключа равна 0 или 1, возвратить key[0].
  // иначе сложить первый и последний символ
  if (len <= 1)
    hashf = key[0];
  else
    hashf = key[0] + key[len-1];
 
  return hashf % 101;
}

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <FileCtrl.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TGroupBox *GroupBox1;
        TMemo *Spisok;
        TDateTimePicker *DateTimePicker1;
        TLabeledEdit *FIO1;
        TDateTimePicker *DateTimePicker2;
        TButton *Button1;
        TGroupBox *GroupBox2;
        TLabeledEdit *FIO2;
        TButton *Button2;
        TLabel *Label1;
        TLabel *Count;
        TLabel *Label2;
        TLabel *Rec;
        TMemo *db;
        TMemo *Search;
        TMemo *Memo1;
        TMemo *buf;
        TFileListBox *FileListBox1;
        TButton *Button3;
        void __fastcall SaveRec(AnsiString Dname,AnsiString Fname,AnsiString time);
        void __fastcall SearchRec(AnsiString Dname);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        int __fastcall HF(char *key);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include <io.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
struct man
{
        AnsiString fio;
        AnsiString date;
        AnsiString time;
} m[1000];
 
int C = 0;
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SearchRec(AnsiString Dname) // ищет сколько раз и когда отмечался человек
{
        if (DirectoryExists("List\\" + Dname))   // проверка. если человек есть в базе - то у него должна быть папка в List. если она есть то выполнять следующее
        {
                Button3->Show(); // показать кнопку "подробнее"
                FileListBox1->Mask = "List\\" + Dname + "\\*.*"; // меняем маску  ФайлЛистБокса для того чтобы попасть в каталок человека. Dname - это сокращенно DirName . тоесть каждый новий человек. будет иметь свою папку в List. а в ней будут его данные - в какой день и в какое время был отмечен.
                for (int i=0,k=0; i < FileListBox1->Items->Count; i++) // начало цикла от І=0 до количества файлов в папке Dname
                {
                        Search->Lines->Add("Дата: " + FileListBox1->Items->Strings[i]); // выводим дату
                        buf->Lines->LoadFromFile("List\\" + Dname + "\\" + FileListBox1->Items->Strings[i]); // загружаем в буфер  файл даты
                        Search->Lines->Add("Посещений: " + (AnsiString)buf->Lines->Count); // выводим количество посещений
                        k += buf->Lines->Count;//cчетчик  общего количества посещений
                        Search->Lines->Add(Dname);
                        Search->Lines->Add(buf->Lines->Text);//вывод всего времени в определенный день
                        Search->Lines->Delete(Search->Lines->Count-1); //удаление предпоследней строки
                        Search->Lines->Add("=================================");
                        Count->Caption = k;  //обновляем общий счетчик
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveRec(AnsiString Dname,AnsiString Fname,AnsiString time)
{
        CreateDir("List\\" + Dname);
        Fname = "List\\" + Dname + "\\" + Fname;
        buf->Clear();
        if (access(Fname.c_str(),0) == 0)
        {
                buf->Lines->LoadFromFile(Fname);
                buf->Lines->Add(time);
                buf->Lines->SaveToFile(Fname);
        }
        else
        {
                buf->Lines->Add(time);
                buf->Lines->SaveToFile(Fname);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        MkDir("List");
        if ((access("List\\db.txt",0)) == 0)
        {
                db->Lines->LoadFromFile("List\\db.txt"); // загрузка в мемо строк из файла
                Rec->Caption = db->Lines->Count/3; // отображение в лябель количества строк в меме
                for (int i=0,j=0; j < db->Lines->Count;i++,j+=3)// цикл по строкам мемы
                {
                        m[i].fio = db->Lines->Strings[j];// присвоение элементам структуры
                        m[i].date = db->Lines->Strings[j+1]; // значения строк мемо
                        m[i].time = db->Lines->Strings[j+2];
                        Spisok->Lines->Add("Ф.И.О: " + m[i].fio); // добавление в другое мемо
                        Spisok->Lines->Add("Дата: " + m[i].date);  // элементов структуры
                        Spisok->Lines->Add("Время: " + m[i].time);
                        Spisok->Lines->Add("=================================");
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (FIO1->Text == "") // LabeledEdit если пуст
    ShowMessage("Введите Ф.И.О!"); // показ сообщения
  else // иначе
  {
    m[C].fio = FIO1->Text; // присваиваем элементу структуры текст LabeledEdit
    m[C].date = DateTimePicker1->Date.DateString(); // присваиваем элементу структуры значение
    m[C].time = DateTimePicker2->Time.TimeString(); // присваиваем элементу структуры значение
    Spisok->Lines->Add("Ф.И.О: " + m[C].fio); // добавляем строки в мемо
    Spisok->Lines->Add("Дата: " + m[C].date); // добавляем строки в мемо
    Spisok->Lines->Add("Время: " + m[C].time); // добавляем строки в мемо
    Spisok->Lines->Add("=================================");
    db->Lines->Add(FIO1->Text); // добавляем строки в мемо
    db->Lines->Add(DateTimePicker1->Date.DateString()); // добавляем строки в мемо
    db->Lines->Add(DateTimePicker2->Time.TimeString()); // добавляем строки в мемо
  // добавляем строки в мемо
    db->Lines->SaveToFile("List\\db.txt"); // сохраняем мемо в файл
    SaveRec(m[C].fio,m[C].date,m[C].time); // самописная функция
    [COLOR="Red"]Memo1->Lines=HF(FIO1->Text);[/COLOR] //тут ошибка
    FIO1->Clear(); // очищаем мему
  }
}
//---------------------------------------------------------------------------
int __fastcall TForm1::HF(char *key)
{
  int len = strlen(key), hashf = 0;
 
  // если длина ключа равна 0 или 1, возвратить key[0].
  // иначе сложить первый и последний символ
  if (len <= 1)
    hashf = key[0];
  else
    hashf = key[0] + key[len-1];
 
  return hashf % 101;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Button3->Hide(); // прячем кнопку
  Count->Caption = 0; // сбрасываем значение в метке в 0
  Search->Clear(); // очищаем еще одно мемо
  if (FIO2->Text == "") // если LabeledEdit пустой
    ShowMessage("Введите Ф.И.О!"); // показываем сообщение
  else // иначе
    SearchRec(FIO2->Text); // самописная функция
}
//-----------[HIGHLIGHT="SQL"]----------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  if (Button3->Caption == "Подробно=>") // если заголовок третьей кнопки
  {
    Form1->ClientWidth = 730; // ширина клентской части формы
    Search->Show(); // показать мему
    Button3->Caption = "<=Скрыть"; // надпись на третьей кнопке
  }
  else // иначе
  {
    Form1->ClientWidth = 500; // ширина клентской части формы
    Search->Hide(); // спрятать мему
    Button[/HIGHLIGHT]3->Caption = "Подробно=>"; // надпись на третьей кнопке
  }
}

// если у вас юникодный билдер, судя по всему
  char *ch = AnsiString(FIO1->Text).c_str();
  [COLOR="Red"]Memo1->Lines->Add(HF(ch);[/COLOR] //тут ошибка
  FIO1->Clear(); // очищаем мему
// и для начала в коде своем разберитесь,
// потому что TLabeledEdit *FIO1;
// т.е., FIO1 - это у вас TLabeledEdit
// а не какое-то там муму ... : FIO1->Clear(); // очищаем мему

    Memo1->Lines=HF(exp);