procedure TForm1.Button1Click(Sender: TObject);
var
  str_source: string;
  i: integer;
begin      // 先將在資料庫中允許的字元組成字串
  Query1.SQL.Text := 'select amii from ami';
  Query1.Open;
  while not Query1.Eof do
  begin
    str_source := str_source   Query1.FieldByName('amii').AsString;
    Query1.Next;
  end;      //逐一比對 memo 中的字元
  for i:= 1 to Length(Memo1.Lines.Text) do
  begin
    if (Memo1.Lines.Text[i]=#13) or (Memo1.Lines.Text[i]=#10) then Continue;
    if Pos(UpperCase(Memo1.Lines.Text[i]), UpperCase(str_source)) = 0 then
    begin
      ShowMessage('Char "' Memo1.Lines.Text[i] '" is not available!'#13#10'This character is at ' IntToStr(i) '.');
      break;
    end;
  end;      Query1.Close;
end;