Ошибки при записи/чтении данных из базы

var mybase: TSQLiteDatabase;
    mytable: TSQLiteTable;
      id: integer;
procedure TForm1.FormCreate(Sender: TObject);
  var mybase: TSQLiteDatabase;
begin
  mybase := TSQLiteDatabase.Create('base.db');
  mybase.ExecSQL('PRAGMA key = "admin"');
  if not mybase.TableExists('FirstTable') then
mybase.ExecSQL('CREATE TABLE FirstTable (ID INTEGER PRIMARY KEY, MYTEXT TEXT, MYBLOB BLOB)');
mybase.ExecSQL('insert into FirstTable (MYTEXT) values("Start")');
id := mybase.GetLastInsertRowID;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 f1: TFileStream;
 ids: string;
begin
ids:=inttostr(id);
    f1:= TFileStream.Create('pic.png',fmOpenRead);
mybase.UpdateBlob('UPDATE FirstTable SET MYBLOB = ? WHERE ID = '+ids, f1);
f1.Free;
end;

procedure TForm1.Button4Click(Sender: TObject);
var ms:TMemoryStream;
sql:string;
begin
   ms := TMemoryStream.Create;
sql := 'SELECT MYBLOB FROM FirstTable WHERE ID='+edit2.Text;
if mybase.GetTable(sql).FieldAsString(0) <> '' then
begin
ms := mybase.GetTable(sql).FieldAsBlob(0);
ms.Position := 0;
(Form1.Image1 as Timage).Picture.Bitmap.LoadFromStream(ms);
ms.Free; end;
mybase.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
ids:string;
begin
   ids:=edit1.Text;
mytable := mybase.GetTable('SELECT MYTEXT, MYBLOB FROM FirstTable where ID='+ids);
edit1.Text:=mytable.FieldAsString(0);
end;

mybase: TSQLiteDatabase;
    mytable: TSQLiteTable;
      id: integer;
procedure TForm1.FormCreate(Sender: TObject);
  var mybase: TSQLiteDatabase;

mybase: TSQLiteDatabase;
    mytable: TSQLiteTable;
      id: integer;
procedure TForm1.FormCreate(Sender: TObject);
  var Amybase: TSQLiteDatabase;