Alguem consegue mudar este codigo de visual basic p/ delphi

dim novo as boolean;

sub btnGravar_click()
if novo then
cliente.seek ´=´,txtnome_cliente.text
if not cliente.nomatch then
msgbox(´Nome do cliente já Cadastrado´ ), 65, ´Aviso´
exit sub
end if
end if
if novo then
cliente.addnew
else
cliente.edit
end if
nome.value = txtnome.text
Endereco.value=txtendereco.text
cliente.update
txtnome.text = ´ ´
txtendereco.text =´ ´
txtnome.setfocus
novo=false

end sub

Esse e o codigo, quem me der essa ajuda vou agradecer muito, abraços a todos da lista