Delphi De MySql Veri Tabanına İnsert İntoİle Kayıt Etme

delphi de MYSQL veri tabanına insert into ile kayıt eklemek mysql veri tabanına INSERT INTO ILE yeni kayıt açmak

yazılım kuralına dikkat

procedure TKASA_FORM.YeniClick(Sender: TObject);
VAR HK,HA,KK,Q:STRING;
begin
Q:="; KK:=";HK:='K'; HA:=";
HA:=HAREKET.Text;
KK:= KASA_MASTER.FIELDBYNAME('KASA_KODU').AsString;
KASA_HAREKET.Close;
KASA_HAREKET.SQL.CLEAR;
Q:=' INSERT INTO CARIHAR (BA,KASA_KODU,HK,hartip,HARADI,ACIKLAMA) VALUES('+'"'+BA.TEXT+'"'+','+'"'+KK+'"'+','+'"'+HK +'"'+','+'"'+HAREKET.TEXT+'"'+','+'"'+HAREKET.TE XT +'"'+','+'"'+HAREKET.TEXT+'")';
KASA_HAREKET.SQL.ADD(Q);
KASA_HAREKET.EXECSQL;

KASA_HAREKET.close;
KASA_HAREKET.sql.clear;
KASA_HAREKET.Sql.Add('select * from CARIHAR');
KASA_HAREKET.Sql.Add('order by SIRANO DESC');
KASA_HAREKET.open;
END;