[lKinGl]

estoy haciendo asi pero no me corre :S disculpen mi ignorancia

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
var
buscar:string;
begin
buscar:='Select Max(num_veh) from vehiculos.db';
edit1.Text:=IntToStr(StrToInt(buscar)+1);
end;