Delphi - como utiliso el try en este codigo???

al ejecutar me marca un error como podria sacar el error utilizando el try..
If query1.FieldByName('cod_documento').asinteger = 1 then
begin
query2.Close;
query2.Params[1].Value :=query1.FieldByname('cod_documento').asinteger;
query2.Params[0].Value := StrToInt(edit1.text);
query2.Open;
end;
if query1.FieldByName('cod_documento').asinteger = 1 then
begin
query3.Close;
query3.params[1].Value :=query1.fieldByName('cod_documento').asInteger;
query3.params[0].Value :=StrToInt(edit1.Text);
query3.Open;
end;
if query1.FieldByName('cod_documento').asinteger = 1 then
begin
query4.close;
query4.params[1].Value :=query1.FieldByName('cod_documento').asInteger;
query4.params[0].Value :=StrToInt(edit1.Text);
query4.Open;
edit1.clear;
end;

try
......... codigo
+ codigo

except
showmessage('Error al hacer esto');
end;

Puedes usar esto para todo el bloque o para cada sección, si es para cada seccion puedes usar ademas una bandera q te diga si ha habido error. (band=0 .... si hay error band=1), por ejemplo:

Suerte