Hola
esta es la idea:
Código Delphi
[-]
TuQuery.SQL.Text := 'Insert Into TblContacto (aoutoc, nick, nombre, apellido, telefonop, telefonoh, telefonom, direccion, ciudad) '+
'Values (' ', '+QuotedStr(NICK.Text)+', '+QuotedStr(NOMBRES.Text)+', '+
QuotedStr(APELLIDOS.Text)+', '+TEL_PER.Text+', '+TEL_LAB.Text+', '+TEL_MOV.Text+', '+DIRECCION.Text+', '+CIUDAD.Text+')'
QTemp.ExecSQL;
No esta completa la sentencia, pero ya con esto veras como se hace.
Saludos