Очередная проблема Sqlite3 + win1251

procedure TForm1.FormCreate(Sender: TObject);
begin
sldb := TSQLiteDatabase.Create('hur.s3db');
  try
    if not sldb.TableExists('test') then
       sldb.ExecSQL('CREATE TABLE Test (id INTEGER PRIMARY KEY, T1 TEXT, T2 TEXT)');
  except
    ShowMessage('Error!!!!!');
    Application.Terminate;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
sltb:TSQLiteTable;
i:integer;
begin
   Memo1.Lines.BeginUpdate;
  try
    Memo1.Clear;
    sltb := sldb.GetTable('select FirstName from Persons');
    try
    for i := 0 to sltb.Count - 1 do
      begin
      Memo1.Lines.Add( IntToStr( i ) + ' :' + Utf8Decode(sltb.FieldAsString( sltb.FieldIndex['FirstName'] ) ) );
      sltb.Next;
      end;
    finally
      sltb.Free;
    end;
  finally
  Memo1.Lines.EndUpdate;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  sltb :TSQLiteTable;
begin
  Memo1.Lines.BeginUpdate;
  Memo1.Clear;
  sltb := sldb.GetTable('select FirstName from Persons');
  while not sltb.EOF do begin
    Memo1.Lines.Add(sltb.Fields[0]);
    sltb.Next;
  end;
  Memo1.Lines.EndUpdate;
end;